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ABSTRACT 


This  paper  contains  implementation  notes  and  user's 
guide  for  an  inductive  program (AQ 7 UNI )  which  given 
a  set  of  events  (via  an  integer-valued  feature  vector 
for  each  object),  generates  one  or  more  characterizations 
of  those  events,  expressed  in  the  form  of  VI4  expressions. 
Variable-valued  Logic  System  VLi  is  a  monadic  predicate 
calculus  in  which  rules  can  be  formed  which  describe  single 
events  or  sets  of  events.   The  VT4  characterization  is 
a  generalization  of  the  descriptions  of  the  event  examples 
given  to  the  program.   The  degree  of  generalization  is 
controlled  by  the  user. 

AQ7UNI  belongs  to  a  family  of  programs  which  employ  quasi- 
extremal  optimality  techniques.   Data  input  formats  are 
highly  compatible  with  the  discrimination  generating  program 
AQVAL/1 (AQ?) .   A  variety  of  operational  parameters  are 
provided  to  direct  the  generalization  processes  and  to 
determine  the  quasi-optimality  judging  criteria  and 
tolerances. 
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Background 

The  uniclass  inductive  program  AQ7UNI  accepts  a  set 
of  symbolic  descriptions  (events)  of  arbitrary  objects  and 
produces  a  general  description  (characterization)  of  the 
set,  expressed  in  the  language  VL^  (Variable-valued  Logic 
system  1  [Michalski  7^»  75]).   This  report  describes  the 
AQ7UNI  program  and  explains  how  to  use  it. 
The  Uniclass  Algorithm 

The  basic  uniclass  algorithm  was  developed  by 
R.  S.  Michalski  and  was  partially  implemented  by 
a  student  at  the  University  of  Illinois,  H.  Yuen.   The 
following  discussion  will  explain  the  algorithm  as  it 
exists  in  a  modified  and  extended  form  which  is  the 
basis  for  the  implementation  of  the  inductive  program 
AQ7UNI ,  version  2. 

In  the  VI4  system  [Michalski  7^0 1  a  cover  for  a 
class  of  events  is  a  logical  formula  which  is  the 
disjunction  of  logical  expressions  called  terms.   It  has 
already  been  shown,  by  examples,  how  a  term  is  the  product 
of  selectors,  and  how  a  term  may  be  satisfied  by  one  or 
more  events.   A  complex  is  a  subset  of  the  set  of  all 
points  in  the  event  space.   For  every  term  there  is  an 
associated  complex  composed  of  all  those  points  in  the 
event  space  at  which  the  term  is  satisfied.   Some  complexes 
cannot  be  represented  by  a  single  term.   Such  complexes 
will  be  purposely  avoided  by  requiring  that  any  complex 
by  exactly  described  by  some  term,  and  with  thi3  constraint 


terms  and  complexes  become  equivalent,  one  making:  a  logical 
statement,  the  other  a  set-theoretical  statement,  about  the 
same  situation.   Throughout  the  remainder  of  this  pap<»r  the 
words  "term"  and  "complex"  will  be  used  interchangeably, 
each  connoting  the  hidden  properties  of  th»  other. 

A  cover  is  a  set  of  complexes  (a  list  of  terms) 
such  that  every  event  is  in  the  union  of  the  complexes. 
If  the  intersection  of  any  two  distinct  complexes  is 
non-empty,  the  complexes  are  intersecting,  otherwise  they 
are  disjoint . 

The  variables  in  system  VL*  may  be  of  nominal  or 
interval  scale.   Nominal  scale  variables  may  be  simple, 
called  FACTOR  type  variables,  or  generalization  tree 
structured,  called  STRUCTURED  type  variables.   Interval 
scale  variables  are  called  INTERVAL  type  variables.   A 
syntactic  limitation  is  built  into  the  VL^  selector 
reference  set  notation.   FACTOR  variable  reference  sets 
may  be  any  powerset  of  the  domain  of  the  variable. 
STRUCTURED  variable  reference  sets  must  be  a  single  leaf 
or  nod*  in  the  generalization  tree.   INTERVAL  variable 
reference  sets  must  be  a  single  interval  subset  of  the 
domain  of  the  variable.   Pecause  of  term/complex  equivalency, 
these  syntactic  restrictions  also  further  restrict  the 
subsets  of  events  which  are  legal  complexes. 


Some  definitions  are  needed  to  assist  with  a  formal 

presentation  of  the  uniclass  algorithm. 

variable  X^ 

Xi      l<i<n,    is  an   integer-valued   variable 
representing  some    feature   of  an  event. 

event   e 

e  =  {xi,X2,  ...  ,xn)  is  a  sequence  of  n 
values  for  the  n  corresponding  variables 

event  set  E 

E  =  {ei,C2»  •••  »em7  ^s  a  se*  °*"  m   «v«nts 
selector  reference  set  r ^ 

ri  -  <Cvil»vi2»  •••  »vj.si}  l-i-n»  i-8  a  3e"t  of 
s^  values  in  the  domain  of  variable  Xi 

selector  [SjI 

Csi]  =  [X^=ri]   is  a  logical  expression  in  the 
VI4  system  which  is  true  only  when  the  value 
of  variable  X^  is  an  element  of  the  set  r^ 

complex  C(E) 

C(E)  =  [Skl][Sk2]...[Sk.]  Hjfln 

is  a  conjunction  of  selectors  which  is  true 
for  all  events  in  set  E  and  false  for  the 
maximum  number  of  events  not  in  set  E.   C(E) 
is  both  a  term  in  a  VL^  logical  expression 
and  the  corresponding  subspace  of  the  event 
space. 

density  of  complex  (D(C(E)) 

D(C(E))  =  ||  is  the  ratio  of  the  number  of 

events  in  set  E  to  the  number  of  points  in  the 
event  subspace  C(E). 

degree  of  generalization  AG(E) 

AG(E)  =  -log2  D(C(E))   (introduced  in  [Michalski 
79])   is  the  average  number  of  bits  of  information 
needed  to  locate  a  particular  event  from  E  within 
a  unit  event  subspace  of  size  #C/#E,  with  #E  and 


#C   as  defined  in  the  previous  definition  of 
density.   When  event  set  E  is  described  by 
complex  C,  each  event  in  E  is  being  described 
by  an  enclosing  subspace  containing  an  average 
of  #C/#E  points.   This  gives  "generality"  or 
"uncertainty"  to  the  location  of  the  event 
(it  is  one  of  th*»  ^O/^E  points,  but  which  onp 
is  it?).   Thp  degree  of  generalization  is 
the  average  amount  of  information  disregarded 
in  determining  the  location  of  the  event  when 
it  is  described  by  C(E)  rather  than  E. 


rank  R ( e  te  '  ) 


R  is  a  measure  of  the  dissimilarity  of  the 
events  e  and  e'.   Recall  that  both  e  and  p' 
are  spque^p"  ~f  n  values  for  the  n  variablps. 
Let  d(x.x')  by  0  if  x=»x'  and  1  otherwise.   Then 

n 
R(e,e')  =  t    d(x^,xj)      where  x^   l=-i^n   is  the 

i=1 
sequence  of  valups  for  e  and  x^   l^i<n   is  the 

corresponding  sequence  for  e'.   Rank  P  is  a 

special  case  of  a  more  comnlete  dissimilarity 

measure  for  VI4  events  found  in  [[Michalak!  * 

Larson  ?8~]   which  applies  to  nominal,  interval, 

and  structured  variables.   The  dissimilarity 

measure  used  in  this  report  corresponds  to  the 

general  treatment  the  authors  cited  give  to 

nominal  scale  variables. 


The  general  uniclass  algorithm  is  diagrammed  in 
figure  1.   The  symbolic  notation  used  is  defined  below, 
E,  -  the  set  of  events 


*R 


-  the  set  of  events  remaining  to  be  covered  (Ep^-E,  ) 


K   -  a  user-specified  number  of  neighborhoods  to 
build  in  parallel  and  from  which  a  "best 
neighborhood"  is  selected 

Em  -  the  set  of  events  belonging  to  the  ith 


•N 


neighborhood   (lfi^K) 


SEED^  -  an  event  selected  at  random  from  set  Ep  which 
becomes  the  nucleus  of  neighborhood  i  (no'  two 
neighborhoods  may  have  the  same  SEED) 

COVER  -  a  set  of  complexes  of  the  best  neighborhoods 


Form  Uniclass  Cover 


start: 

COVER  4r-    0 

RR  *-  EL 


(l*i<K)i  Eft  «-  <t> 


HALT:   the  disjunction  > 
of  the  elements  of 
COVER  is  the  uniclass 
characterization.   J 


build  neighborhoods: 

(l<i<K):  if  EJ,  =  $  then  select  SEEDi 
and  form  set  E^T  of  events  similar 
to  SEEDi  (by  rank  R)  and  such  that 
C(Ef!j)  conforms  to  limits  on  the 
density  and  number  of  selectors 


judge: 

apply  optimality  criteria  with  the 
order  of  application  and  tolerance 
as  specified  by  the  user,   the  best 
of  the  K  neighborhoods  will  be 


called   e 


N 


form   cover: 

COVER    ±-   COVER   U   C(eJ) 

Er    «-   Er    -^En 

(l<i<K)i    Ej|   *-   E^   -   E^ 


Uniclass  Algorithm 
Figure  1 


The  uniclass  procedure  begins  when  a  set  of  events 
ER  ~  EL  ^as  Deen  established  from  user  input  data.   The 
following  steps  are  repeated  until  Er  =  ()>  and  on  each 
iteration  another  complex  in  the  cover  is  produced,  and 
the  events  which  it  covers  are  removed  from  Er. 

step  li   Build  neighborhoods.   A  number  (given  by  the 
user)  of  "neighborhoods"  are  constructed.   A 
neighborhood  is  a  set  of  events  E^  such  that  for 
each  event  e'  in  E^t    R(e',seed)  is  not  greater  than 
a  limit  rank  set  by  the  user.   "Seed"  is  an  event 
selected  arbitrarily  from  the  set  Er  and  is  unique 
to  each  neighborhood  constructed.   C(E^)  is  the 
complex  which  covers  the  events  En.   The  degree  of 
generalization  of  C(E^)  is  determined  by  the  set 
Ejyj.   During  the  neighborhood  construction  process 
some  events  are  either  excluded  from  E^  or  forced 
into  EN  in  order  to  satisfy  the  user-given 
constraints  of  density  threshold  and/or  selector 
threshold. 

step  2t   Select  best  neighborhood.   A  quasi-optimal 

neighborhood  is  selected  according  to  one  or  more 
neighborhood  judging  criteria  (ties  are  broken  by 
making  an  arbitrary  choice).   Seven  criteria  are 
defined  as  follows. 


criterion  It   the  number  of  complexes  in  the  cover 

(estimated  as  the  negative  of  the  number 
of  events  in  ER  covered  by  the  complex) 

criterion  2:   the  number  of  selectors  in  a  complex 

criterion  3:   the  sum  of  the  costs  of  the  variables 

in  a  formula  (costs  supplied  by  the  user) 

criterion  ^:   the  degree  of  generalization 
(estimated  as  l/D(C(EN))) 

criterion  5«   "the  sum  of  weights  of  the  events  covered 
by  the  complex  (weights  supplied  by 
the  user) 

criterion  6:   the  length  of  references  (£  s^) 

criterion  7 '•      the  relative  scope  of  references 

(the  sum  of  the  mean  deviations  for 
all  variables) 

These  criteria  are  identical  to  the  criteria  available 
in  program  AQ7  [Larson  &  Michalski  753 • 

Neighborhood  judging  may  be  based  on  several  criteria, 
applied  in  an  ordering  determined  by  the  user.   A 
tolerance  value  is  specified  for  each  and  at  each 
step  of  the  judging,  a  neighborhood  is  eliminated 
if  its  criteria  value  is  greater  than  an  upper 
bound  calculated  as 

UBOUND  =  MIN  +  TOLERANCE  *  (MAX-MIN). 

step  3s   Processing  the  chosen  neighborhood.   The  best 

neighborhood  represents  a  complex  C(E^)  which  will 

be  saved  to  become  one  complex  in  the  cover  of  the 

events.   The  events  in  E   are  eliminated  from  ER 

and  from  other  neighborhoods  which  were  not  selected. 
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AQ7UNI  Program  Implementation  Notes 

AQ7UNI  is  a  1280  statement  PL/l  program  which  will 
run  in  l^OK  bytes  of  memory.   The  source  listing  for 
AQ7UNI  has  been  reproduced  in  Appendix  I   and  you  are 
directed  to  that  listing  for  detailed  information.   The 
following  block  diagram  shows  the  procedures  into  which 
the  program  is  divided.   Each  block  in  the  diagram  will 
be  discussed  briefly. 
AQ7UNI  -  read  first  set  of  keyword  data 


BLKA  -  read  domain  definitions,  variable  definitions 


BLKB  -  read  criteria  specs,  event  data,  uniclass  keywords 


BLKC  -  generate  a  characterization 


NEXTSEED 
select  a  new  SEED  event 


CRITVAL 
evaluate  neighborhoods 


PR COVER 
print  VLj  rules 


NGBREPORT 

(diagnostic  aid) 

PUTEVTS 

NGBRHD 

RANKCHAIN 

ECOV 

GENERALIZE 

DROPSEL 

build 

a  neighborh 

ood 

POPULATION 


NUM 


READVEC 


READGAM 


Figure  2 


AQ7UNI 

The  main  program  block  is  responsible  for  beginning 
to  set  up  the  environmental  data  needed  later.  The  first 
set  of  keyword  data  (NGE,NMQ,LQTRACE,STRACE,QLQT.QST,PNTE, 
MODE , SAVE , SAVELQ , MAXSTAR ,  CUTSTAR , I NFORM .TITLE , LQST , CLASSES , 
MAXNV .DOMAINS, NAMES, MAXNAMELEN.STLVLS)  is  read  by  the  main 
block.  Each  problem  starts  out  here  and  then  control  flows 
to  BLKA,  BLKB,  and  BLKC  as  more  parameters  are  read  and 
evaluated. 
BLKA 

BLKA  is  responsible  for  reading  domain  definitions, 
variable  definitions,  the  number  of  levels  for  each  variable 
and  the  number  of  classes  and  the  number  of  sample  events 
in  each. 
BLKB 

BLKB  takes  over  and  reads  the  ordering  information,  the 
criteria  specification,  the  event  data,  and  the  uniclass 
keyword  data  ( UNI CLASS, QUT, UNI TR ACE, SAVEC ) .   Then  BLKB 
reads  in  each  characterization  specification  (the  number  of 
such  specifications  is  given  by  the  UNICLASS  keyword 
parameter).   Block  BLKC  is  invoked  for  each  characterization. 
BLKC 

Most  of  the  work  is  done  here  and  BLKC  is  built  much 
as  the  flow  chart  on  page  8   indicates.   Using  the  ULIST 
variable,  the  event  set  ER  is  built  from  the  events  in  the 
indicated  classes.  ER  is  actually  a  bit  string  in  the 
program  with  each  event  represented  by  a  unique  bit. 
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As  long  as  the  bit  string  is  not  all  zero,  neighborhoods 
are  constructed  using  the  NGBRHD  procedure  and  the  CRITVAL 
procedure  then  determines  which  one  is  quasi-optimal 
according  to  the  criteria  requested.   As  each  neighborhood 
is  being  built  up,  a  record  is  kept  (as  a  bit  string)  of 
each  event  which  the  complex  of  the  neighborhood,  C(E») 
covers.   After  CRITVAL  has  determined  which  neighborhood 
is  the  best,  the  set  ER  is  updated  via  a  simple  bit  string 
operation  to  remove  those  bits  corresponding  to  covered 
events,  i.e.  events  in  E...   The  POPULATION  procedure 
can  count  the  bits  in  a  bit  string  whenever  a  population 
count  is  necessary.   When  ER  becomes  empty,  the  procedure 
PRCOVER  is  used  to  convert  the  internal  representation  of 
the  complex  into  standard  notation  and  print  the  results. 
NEXTSEED 

The  NEXTSEED  procedure  selects  an  arbitrary  event 
from  ER  for  use  as  the  seed  event  in  neighborhood  construction. 
CRITVAL 

CRITVAL  applies  whatever  criteria  the  user  requests 
to  all  existing  neighborhoods  and  then  makes  a  selection 
of  the  neighborhood  which  is  optimal  according  to  the 
criteria  used. 
PRCOVER 

PRCOVER  prints  out  the  complexes  given  a  bit  string 
which  is  the  internal  form  for  both  complexes  and  events. 
PRCOVER  also  has  access  to  the  variable  and  value  names 
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tables.   Numeric  variable  values  and  event  data  values 
are  used  throughout  the  program  from  input  up  to  the  time 
to  print  the  complex.  User  supplied  names  are  substituted 
for  numeric  values  as  the  complexes  are  printed  out. 
NGBREPORT 

The  NGBREPORT  procedure  is  used  only  when  the  "quick 
trace"  is  active  (the  QUT  parameter).   NGBREPORT  prints 
data  associated  with  each  neighborhood  on  each  cycle  of 
the  program.  The  internal  procedure  PUTEVTS  is  used  to 
print  lists  of  events  which  are  included  in  the  neighborhood 
POPULATION 

POPULATION  counts  one  bits  in  a  bit  string.   Since 
extensive  use  is  made  of  bit  strings  in  AQ7UNI,  an  efficient 
population  count  procedure  is  important. 
NUM 

NUM  is  a  utility  procedure  which  can  convert  a  number 
to  a  varying  length  character  string,  or  to  the  correct 
special  name  associated  with  the  given  value.   NUM  is  used 
most  by  the  PRCOVER  procedure. 
READVEC 

READVEC  reads  event  data  which  is  in  vector  format. 
READGAM 

READGAM  reads  event  data  which  is  in  gamma  format. 
Gamma  format  is  not  often  used  and  is  described  fully  in 
[Larson  751* 
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NGBRHD 

NGBRHD  builds  neighborhoods  around  a  given  seed  event 
The  algorithm  for  neighborhood  construction  is  given  in 
[Stepp  79]  and  in  figure  3.   The  procedure  RANKCHAIN 
creates  RANK+1  singly  linked  lists  of  events  of  ER 
according  to  their  rank  with  respect  to  the  seed  event. 
NGBRHD  then  goes  through  a  trial  and  error  procedure 
of  adding  events  to  the  neighborhood,  first  an  entire 
chain  of  events  of  the  same  rank  at  a  time,  but  later, 
event   by  event  until  it  can  go  no  further.   The  last 
legal  neighborhood  under  the  constraints  of  rank, 
disjointness  (optional),  density  threshold,  and  selector 
threshold  is  the  final  result.   Along  the  way,  the 
GENERALIZE  procedure  is  used  to  edit  the  values  which 
interval  or  structure  variables  may  take.   If  the  selector 
threshold  is  not  satisfied  by  the  final  arrangement,  the 
DROPSEL  procedure  is  used  to  further  reduce  the  number  of 
selectors.   NGBRHD  reports  the  density  of  its  result  and 
gives  bit  strings  which  indicate  which  events  the 
neighborhood  covers. 
ECOV 

ECOV  checks  lists  of  events  to  determine  which  ones 
are  covered  by  the  complex  for  a  neighborhood.  The  test 
involves  only  simple  bit  string  operations. 


Build 

Ne lRhborhooda 
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empty    a] 1 
1 1 n t a    Li 
(l<i<RANK+l) 


select    first 

evftit  e 
In  Er-(SEED} 


n 


initialize  E 
to  (SEED) 

r«0 


N 


add  e 
to  list 


r-r+li  HALT  if 

r>RANK 
add  events  on 
list  Lr  to  EN 


count  the 
selectors  in 
C(EN) 


add  e 
to  list 
of  rank 

RANK+1 


remove  events 

on  list  Lr 

from  EN 

someadded*  N  o 


select  first 
event  e  on 
list  L_ 


add    event   e 
to   E„ 


r»r+li    HALT   if 
r>RANK 

Bomeadded^No 


select   next 
event    in 
ER-(SEED} 


remove    event    e 
from  E      and    add 
it   to   list   Lr+1 


aomeadded=Yes 


Legend i 
SEED 
Ep  i 
Lii 
RAMK 

Em  I 
C(Em 

STi 
DTi 
D(C) 


select   next 

event    e 
on    list   L 


i      an   event  which  was   selected    from  Eq 

the    set   of  events   remaining   to   be   covered 

a   list   of  events  whose   distance   to  SEED   (measured   by  R )    Is   i 
i      a  rank   limit    Imposed   by   the   user 

the    set    of   events   belonging   to    the    neighborhood 
)  i      the    smallest    single    complex    covering   the    events  Efj 

the   maximum-number-of-selectors   threshold 

the    minimum-density   threshold 
i      the   density   of  complex  C 

Neighborhood  Construction 
Figure    3 


14 


GENERALIZE 

GENERALIZE  extends  the  reference  set  for  variables  of 
interval  or  structure  type.   Interval  variables  are 
extended  by  filling  in  gaps  of  missing  values  in  an 
enclosing  interval,  because  in  system  VLj ,  the  reference 
set  for  a  variable  of  interval  type  must  be  a  single 
closed  interval.   Structure  variables  are  extended  by 
finding  a  common  node  in  the  variable  structure  which 
encompasses  all  values  present.   After  GENERALIZE,  every 
interval  variable  has  a  reference  set  which  represents 
only  one  interval  and  every  structure  variable  has  a 
reference  set  which  represents  a  particular  node  in 
the  structure  tree. 
DROPSEL 

The  selector  threshold  parameter  is  used  to  cause 
all  but  a  certain  number  of  selectors  to  be  extended  and 
dropped.   Sometimes  the  neighborhood  construction  process 
is  not  sufficient  to  obtain  the  desired  number  of  selectors. 
(That  is  not  surprising  since  the  neighborhood  construction 
process  is  not  involved  with  the  number  of  selectors.)   When 
the  number  of  selectors  remains  too  large,  DROPSEL  finds 
and  extends  references  on  certain  selectors  so  that  they 
are  eliminated.   First,  variables  of  factor  type  are  considered. 
DROPSEL  eliminates  those  with  the  highest  fraction  of  their 
domain  in  the  reference  set.   If  that  does  not  reduce  the 
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selector  count  sufficiently,  then  all  variables  are  considered 
and  again  those  with  the  highest  fraction  of  the  domain 
already  present  in  the  reference  set  are  eliminated* 
When  AQ7UNI  is  producing  disjoint  complexes,  care  is 
taken  not  to  eliminate  any  variable  needed  to  maintain 
disjointness.  When  disjoint  complexes  are  being  generated, 
DROPSEL  may  not  always  be  able  to  reduce  the  number  of 
selectors  to  the  limit  given  by  the  selector  threshold, 

A  note  About  the  Internal  Bit  Representation  of  Events 

Individual  events  and  complexes  are  represented 
within  AQ7UNI  as  bit  strings.  The  strings  are  all  the 
same  length,  with  a  bit  for  each  value  of  each  variable. 
This  works  because  AQ7UNI  permits  only  integer  values 
for  its  variables  and  the  underlying  numerical  domains 
of  all  variables  begin  with  zero.   In  actual  practice, 
more  than  the  minimum  number  of  bits  are  consumed,  so 
as  to  be  able  to  align  the  0-bit  for  each  variable  at 
a  character  (byte)  boundary.   Whenever  possible,  the 
bit  strings  are  operated  on  as  character  strings  to 
improve  program  efficiency. 
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User's  Guide  for  Uniclass  Program  AQ7UNI 


(This  user's  guide  is  for  version  2  of 
AQ7UNI  -  November  1978.) 


Robert  Stepp 
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Introduction 

AQ7UNI  Version  2  is  a  PL/l  program  which  can 
accept  one  or  more  descriptions  of  classes  of  events 
and  generate  one  or  more  characterizations  for  each. 
The  input  formats  are  purposefully  similar  to  those  used 
by  AQVAL/1  (AQ7)   [Larson  75D.  Only  a  few  statements 
of  uniclass  parameters  need  be  appended  to  data  already 
set  up  for  AQVAL/1  (AQ7)  to  use  AQ7UNI  to  generate 
characterizations  of  the  events.   Version  2  of  AQ7UNI 
supports  the  following  parameters  and  features  not 
available  in  previous  versions. 

-  interval  variable  domains 

-  structured  variable  domains 

-  user  selected  judging  criteria 

-  domain  definitions  with  symbolic  assignments 
to  variables  and  their  values 

Input  Parameters 

Input  to  AQ7UNI  is  defined  below.   Many  input 
specifications  match  those  of  AQVAL/l  (AQ7).  though 
some  of  the  parameters  for  AQVAL/1  (AQ7)  are  accepted 
by  AQ7UNI  but  cause  no  action.   The  parameters  for 
AQ7UNI  are  either  simply  numbers  separated  from  each 
other  by  blanks,  or  keyword  expressions.  Whenever  simple 
numerical  values  are  called  for  they  must  be   coded. 
Keyword  expressions,  however,  need  not  be  coded  when 
the  default  value  is  desired. 
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MODE= 

default i   M0DE='IC 

possible  valuest   *IC,t  'DC,  ,VL*. 

MODE  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI, 
INFORM= 

defaultt   INFORM=' VECTOR' 

possible  values «   'VECTOR',  'GAMMAS 

INFORM  determines  the  format  of  the  event  description. 
TITLE= 

default!   TITLE=0 

possible  valuesj   any  non-negative  integer, 

TITLE  specifies  the  number  of  lines  of  title  data. 
MAXSTAR= 

defaultj   MAXSTAR=150 

possible  valuesi   any  positive  integer  less  than  NGE, 

MAXSTAR  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI. 
CUTSTAR= 

default:   CUTSTAR=50 

possible  valuesi   any  positive  Integer  less  than  NGE» 

CUTSTAR  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI. 
NGE» 

default!   NGE=200 

possible  values!   any  positive  integer r 

NGE  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI, 
NMQa 

default!   NMQ=35 

possible  valuesi   any  positive  integer, 

NMQ  defines  the  storage  area  for  the  final  output 

complexes  generated  by  AQ7UNI, 
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LQST= 

de fault t   LQST='1*B 

possible  values:   'O'B,  'l'B, 

LQST  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI. 
SAVE= 

default i   SAVE^'O'B 

possible  values:   'O'B,  'l'B, 

SAVE  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI. 
QLQT= 

default:   QLQT='0'B 

possible  values:   'O'B,  'l'B. 

QLQT  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI, 
LQTRACE= 

default:   LQTRACE='0'B 

possible  values:   'O'B,  'l'B. 

LQTRACE  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI. 
STRACE= 

default:   STRACE^'O'B 

possible  values:   'O'B,  'l'B* 

STRACE  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI 
QST= 

default:   QST='0'B 

possible  values:   'O'B,  'l'B. 

QST  is  an  AQVAL/l  parameter  not  used  by  AQ7UNI, 
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SAVELQ- 

de  fault i   SAVELQ- • 0 • B 

possible  values i   'O'B,  'l'B 

SAVELQ  is  an  undocumented  AQVAL/l  parameter  not 

used  by  AQ7UNI 
PNTE- 

de fault t   PNTE- 'l'B 

possible  valuesj  'O'B,  'l'B 

PNTE  controls  the  printing  of  the  input  event  sets. 

PNTE- 'l'B  causes  printing  to  be  performed. 
CLASSES- 

default i   CLASSES-32 

possible  values i   any  non-negative  integer 

CLASSES  specifies  the  maximum  number  of  event  classes. 
MAXNV- 

default i   MAXNV- 32 

possible  value s i   any  non-negative  integer 

MAXNV  specifies  the  maximum  number  of  variables. 
DOMAINS- 

default!   DOMAINS-0 

possible  values i   any  non-negative  integer 

DOMAINS  specifies  the  number  of  domain  definitions. 

When  D0MAINS>0  domain  definition  parameters  are 

required.   See  the  special  section  on  domain 

definitions. 
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NAMES- 

default i   NAMES- 0 

possible  values «   any  non-negative  integer 
NAMES  specifies  the  maximum  number  of  symbolic 
names  for  data  values  which  may  be  defined. 
(See  the  section  on  domain  definitions). 

MAXNAMELEN- 

defaulti   MAXNAMELEN-8 

possible  values*   any  non-negative  integer 
MAXNAMELEN  specifies  the  maximum  length  of  any 
name  in  characters.   Names  longer  than  this 
will  be  truncated. 

STLVLS- 

default i   STLVLS-0 

possible  values:   any  non-negative  integer 
STLVLS  specifies  the  maximum  number  of  structured 
variable  levels.   (See  the  section  on  domain 
definitions) . 

This  ends  the  first  group  of  keyword  parameters.  A 

semi-colon  must  be  typed  to  separate   these   keywords 

from  the  following  data  items. 

Title  datai   As  many  lines  of  title  data  as  were 
specified  via  the  TITLE*  parameter  should  be  included 
at  this  point  in  the  input  stream. 
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Variable  definition  datai   Notei   if  DOMAINS-  is  specified 
and  given  a  value  greater  than  zero,  then  see  the 
section  on  domain  definition  for  parameters  to  be 
used  in  lieu  of  the  following  items. 

One  of  the  following  specifications  must  appear, 

(a)  n  'FACTOR1  <n  numbers  separated  by  spaces> 

(b)  n  'INTERVAL*  <n  numbers  separated  by  spaces> 
default i   no  default 

example i   2  'FACTOR'  1  b 

The  n  numbers  on  the  right  denote  variables  which 
are  of  the  type  indicated  (either  interval  variables  or 
factor  variables).   Variables  not  mentioned  are  assigned 
the  opposite  variable  type.   Structure  variables  can  be 
defined  only  via  domain  definition  (see  section  on 
domain  definition).   None  of  the  editorial  symbols 
"(a)",  "(b)",  "<",  or  M>"  are  actually  coded. 

number  of  levels  per  variable i 

n,  <n  numbers  separated  by  space s> 

default t   no  default 

example*   4,  5  3  2^ 

The  n  numbers  on  the  right  indicate  the  number  of 

levels  of  each  of  the  n  variables  respectively 

starting  with  variable  X^. 
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number  of  events  per  event  class t 

n,  <n  numbers  separated  by  space s> 

default i   no  default 

example  i  3,  5  4  10 

The  n  numbers  on  the  right  indicate  the  number  of 

events  in  each  event  class.   These  events  are 

defined  later  on  in  the  input  stream, 
ordering  information i 

integers  separated  by  spaces 

Ordering  information  consists  of  a  permutation  of 

the  sequence  of  integers  0flf...  up  to  one  less  than 

the  number  of  classes, 
criteria  specification: 

n,  <n  integers  (l-7)>,  <n  real  numbers  (0.0-1.0)> 

Up  to  seven  user  criteria  may  be  specified.   The 

criteria  are  defined  in  the  body  of  this  report. 

The  integers  serve  to  identify  which  criterion  is 

to  be  used  while  the  real  numbers  give  the  tolerance 

value  s • 

example i   2,  4  6,  0.0  0.5 

The  example  indicates  two  criteria  will  be  used. 

Criterion  #4  will  be  applied  first  with  a  tolerance 

of  0.0.  Then  criterion  #6  will  be  applied  with  a 

tolerance  of  0.5« 
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event  data* 

At  this  point  in  the  input  stream  place  a  vector  of 
numbers  (if  I NFORM»' VECTOR' )  or  a  single  number  (if 
INFORM- 'GAMMA' )  to  describe  each  event.   Events 
must  be  grouped  by  class  and  appear  in  class  order. 
Z  and/or  W  value st 

Z  values  are  the  costs  for  each  variable.  W  values 
are  the  costs  for  each  event.   These  values  are 
to  be  coded  only  if  criterion  numbers  3  and/or  5 
are  used  as  criteria  specifications.   If  criterion 
3  is  used,  then  any  number  of  specifications  of  the 
following  form  may  be  given.   After  the  last  one 
code  a  semi-colon. 
Z(i)- 

defaulti   Z(i)»1.0 

Z(i)  specifies  the  cost  for  variable  i 
If  criterion  5  is  used,  then  any  number  of  specifications 
of  the  following  form  may  be  given.   After  the  last 
one  code  a  semi-colon. 
W(c,n)» 

defaults   W(c,n)al.O 

W(c,n)  specifies  the  cost  for  the  nth  event 

defined  for  class  c. 
If  both  criterion  3  and  criterion  5  are  specified, 
then  code  a  set  of  Z  specifications  and  a  set  of 
W  specifications  with  the  Z's  first  if  criterion 
3  occurs  first  in  the  criterion  list  and  with  the 
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W*s  first  if  criterion  5  occurs  first  in  the  list. 
This  concludes  the  parameter  specifications  which  AQ7UNI 
and  AQVAL/l  (AQ7)  have  in  common.   The  following  parameters 
are  peculiar  to  AQ7UNI. 

uniclass  parameters « 

UNI CLASS* 

default i   UNICLASSaO 

possible  values j   any  non-negative  integer 
UNICLASS  specifies  the  number  of  uniclass  character- 
izations to  be  performed  on  the  event  data. 

QUT= 

default:   QUTs'O'B 

possible  values:   'O'B,  'l'B 

QUT  controls  an  informative  "quick  trace"  of  the 

neighborhood  construction  process. 

UNITRACE= 

default:   UNITRACEs'O'B 

possible  values:   *0,B,  '1*B 

UNITRACE  controls  the  printing  of  detailed  internal 

data. 

SAVEC= 

default:   SAVECa'O'B 

possible  values:   'O'B,  •1,B 

SAVEC  determines  whether  characterization  complexes 

are  to  be  written  in  internal  form  to  a  file  with 

DDname  COVER.   No  such  output  is  produced  when 
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SAVEC-'O'B. 
A  semi-colon  must  be  coded  after  these  keyword  parameters. 

The  following  group  of  specifications  occur  as  many  times 

as  the  value  of  the  UNICLASS  parameter  above.  Each  group 

of  specifications  pertains  to  one  characterization 

performed. 

MODE- 

default i   MODE-* R EL* 

possible  values t   •REL*,  •EXACT*,  'aPPROX1 ,  •FREE1 
MODE  controls  the  density  threshold  value.   With 
MODE* 'EXACT1  the  density  threshold  is  set  to  1.0. 
With  MODE- 'FREE1  the  density  threshold  is  0.0.   With 
MODEa1 APPROX*  the  density  threshold  is  given  by  the 
DT»  parameter  and  with  MODE-'REL*  the  density 
threshold  is  the  product  of  the  value  given  by  the 
DT»  parameter  and  the  density  of  the  learning  sample 
in  the  event  space. 

DT» 

defaults   DT-0.0 

possible  values i   any  non-negative  real  number 
The  DT  value  is  used  only  when  MODE  is  'APPROX* 
or  'REL*. 

ST» 

default i   ST»number  of  variables 
possible  values i   any  positive  integer 
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The  ST  parameter  gives  the  maximum  number  of 
selectors  any  single  complex  is  to  contain. 

RANK= 

default i   RANK-number  of  variables 
possible  values i   any  non-negative  integer 
RANK  limits  the  degree  of  dissimilarity  between 
events  which  make  up  neighborhoods. 

NGB= 

default:   NGB=3 

possible  value si   any  integer  greater  than  3 
NGB  specifies  the  number  of  neighborhoods  built 
in  parallel  and  from  which  the  quasi-optimal  one 
is  chosen.   Characterizations  should  improve  as 
NGB  approaches  the  number  of  events  in  the  learning 
sample,  but  process  time  grows  in  proportion  to 
NGB  as  well. 

TYPE= 

default:   TYPEa'IC' 

possible  values:   *IC,t  'DC* 

TYPE  determines  whether  intersecting  ('IC1)  or 

disjoint  ('DC')  complexes  are  to  be  produced. 

NCRIT- 

default:   NCRIT=0 

possible  values:   an  integer  from  0  to  7 

NCRIT  specifies  the  number  of  user  selected  criteria 

choices  to  be  made. 
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ULIST- 

default i   a  bit  string  of  all  ones 

possible  value st   any  bit  string  of  the  form  'bbbb'B 
where  each  b  is  either  0  or  1.   The  number  of  bits 
must  match  the  number  of  classes  defined.   Starting 
with  class  0  on  the  left,  each  bit  corresponds  to 
one  class  of  events.   If  the  corresponding  bit  is 
a  1,  then  the  events  of  that  class  will  be  included 
in  the  event  set  to  be  characterized.   AQ7UNI  makes 
no  notice  of  the  class  of  events,  this  is  merely  a 
technique  to  facilitate  taking  certain  subsets  of 
the  learning  sample . 
example i   (assume  two  classes)   ULIST*'01'B 

This  indicates  that  class  1  (the  second  class) 
of  events  will  be  covered.   ULISTa'll'B  would' 
indicate  that  both  classes  0  and  1  are  to  comprise 
the  events  characterized. 
A  semi-colon  must  be  coded  at  this  point. 

criteria  choicest 

If  NCRITa  specifies  a  value  greater  than  0,  criteria 
choices  must  be  coded.   If  NCRITan,  then  n  integers 
in  the  range  1  to  7  are  coded  followed  by  n  real 
numbers.   The  integers  serve  to  identify  which 
criterion  is  to  be  used  while  the  real  numbers  give 
the  tolerance  values.   Criteria  choices  for  a  given 
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characterization  override  the  general  criteria 
stated  previously  (following  the  ordering  infor- 
mation) which  serve  as  the  default  criteria. 
Note i   The  reading  of  Z  and/or  W  data  values  is 
under  the  control  of  the  general  criteria  specification. 
If  you  wish  to  use  criterion  3  or  5  you  must  be 
sure  to  also  state  these  same  criteria  as  general 
criteria  to  trigger  the  solicitation  of  associated 
data  values.   The  same  Z  and/or  W  values  are  used 
for  all  characterizations. 
This  concludes  the  parameters  for  each  uniclass  character- 
ization.  At  this  point  you  may  place  a  separator  card 
which  is  an  asterisk  in  column  1  followed  by  blanks  and 
then  begin  coding  parameters  for  another  entire  problem. 
You  may  place  as  many  independent  problems  (separated  by 
separator  cards)  in  the  input  stream  to  AQ7UNI  as  you  wish. 

The  example  on  the  following  page  illustrates  an 

entire  input  stream.  Line  numbers  are  for  reference  only. 

lines  1,2 i   AQVAL/l  keywords 

line  3 j   title  data 

line  4i   factor/interval  specification  (variables 
l»2,3»i*'  are  of  factor  type 

line  5*   number  of  variables,  number  of  levels  per 
variable 
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Sample  AQ7UNI  Input  Stream 


1  INFORM- ' VECTOR • 

2  TITLE«1| 
THIS  WILL  BB  THE  TITLE  OP  THIS  EXAMPLE 
4  'FACTOR'  122  3  * 

7  0  1 

8  1   1   0.0 

9  2  0   3   0 

10  2231 

11  2  2  12 

12  2  2  0  1 
2  2  2  0 
12  3   2 

15  2   2  2  1 

16  12  11 

17  UNICLASS-2  QUT-'l'Bi 

18  MODE-'EXACT'   NGB-5   ULIST-'IO'   NCRIT«2| 

19  fc  7  0.25  0.6 

20  MODE-'APPROX'   DT-.375  RANK- 2  ULIST-'ll'Bi 

21  * 

22  INFORM- ' VECTOR • 
. 
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line  61  number  of  classes,  number  of  events  per 
class 

line  7*   ordering  information  (the  first  class  will 
be  called  class  0,  the  second,  class  1) 

line  81   general  criteria  (criterion  #1,  tolerance  0.0) 

lines  9-16 t  event  data  in  vector  format  (first  4  are 
in  class  0,  second  4  in  class  1) 

line  17i  Uniclass  keywords 

lines  18-20 1   parameters  for  two  characterisations 

line  21 1   problem  data  separator,  followed  by  next 
problem  in  line  22 
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Domain  Definitions 

The  parameters  described  on  the  proceeding  pages 
support  those  features  of  AQ7UNI  which  are  compatible 
with  AQVAL/1  (AQ7).   AQ7UNI  has  a  domain  definition 
feature  which  is  not  compatible  with  AQVAL/l  (AQ7)  and 
for  that  reason  it  is  documented  separately.  The  following 
parameters  are  to  be  used  whenever  the  DOMAINS*  specification 
is  given  a  positive  value.   Parameters  through  and 
including  the  title  data  are  coded  as  before.   None  of 
the  variable  definition  parameters  which  follow  the  title 
data  up  to  (but  excluding)  the  ordering  information  are 
to  be  used  when  DOMAINS  has  a  positive  value.   Substitute 
parameters  given  below  are  used  instead. 

domain  definition  datai 

d#  ' typeidname*  1#  n#  <n#  number  of  names> 
default:   no  default 

Domains  are  numbered  1  through  DOMAINS  (DOMAINS  is 
the  value  given  to  the  DOMAINS*  keyword).   Domains 
are  defined  in  order,  each  definition  being  of  the 
form  given  above.   Md#"  is  the  domain  number.   "1#" 
is  the  number  of  levels  associated  with  this  domain. 
(The  domain  is  the  integers  0  through  1#-1).   Mn#" 
is  the  number  of  special  names  to  be  assigned  to 
the  values  in  the  domain.   Following  the  n#  number 
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you  must  code  that  number  of  names,  each  name  mutt 
be  enclosed  in  apostrophes.   "Type"  indicates  the 
type  of  the  domain  and  is  either  FACTOR,  INTERVAL, 
or  STRUCTURE,   "idname"  is  optional  and  specifies 
any  name  you  wish  to  call  the  domain.  The  parameter 
MAXNAMELENs  described  early  in  the  user's  guide 
specifies  the  number  of  characters  stored  for  each 
name  (or  dname).  The  following  example  illustrates 
domain  definition.  Assume  DOMAINS-2  was  coded. 

1  •FACTOR1  k   0 

2  'INTERVAL i COLOR1  5  5  'WHITE'  'LITE  GRAY' 

•GRAY'   'DARK  GRAY'   'BLACK' 

These  two  statements  define  domains  #1  and  #2.  The 
first  statement  indicates  that  domain  1  is  of  factor 
type  and  has  four  levels  and  no  special  names.  The 
second  statement  indicates  that  domain  2  is  of 
interval  type  called  "color"  with  5  levels  and  5 
special  names.  The  value  0  will  be  called  "white", 
the  value  1  will  be  called  "lite  gray",...,  the  value 
4  will  be  called  "black".  The  parameter  NAMES- 
must  be  given  a  value  large  enough  to  accomodate 
all  of  the  names  given  to  all  domain  definitions. 
NAMES-  should  be  the  sum  of  the  number  of  levels  (1#) 
of  all  domain  definitions  which  have  a  non-zero  number 
of  names  (n#). 
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Domain  definition  for  a  structured  domain  is  more 
complicated.   The  regular  domain  defining  parameters 
are  coded  and  then  following  them  use  these  extra 
specifications! 

sl#  sn#  <sn#  number  of  names> 

nn  <nn  number  of  numbers  separated  by  spaces> 
A  structured  domain  is  a  tree.   The  leaves  are  defined 
via  the  regular  portion  of  the  domain  definition 
statement,  i.e.  the  number  of  leaves  is  the  number  of 
levels  (1#).   The  number  of  interior  nodes  is  specified 
by  the  sl#  parameter  and  via  the  sn#  parameter,  each 
interior  node  may  have  a  name.   Following  the  list  of 
interior  node  names  (if  any)  come  sl#  number  of 
structuring  specifications.   The  structuring  specifications 
correspond  to  the  interior  nodes,  and  give  a  list  of 
previously  defined  nodes  (either  leaves  or  internal) 
which  are  to  be  considered  conceptual  refinements. 
An  example  should  clear  up  the  mysteries.   Consider 
the  set  of  the  objects:   line,  circle,  ellipse,  square, 
trapezoid,  triangle,  hexagon.   Circles  and  ellipses 
are  closed  lines.   Squares  and  trapezoids  are  4-sided. 
4-sided,  triangle,  and  hexagon  objects  are  polygons. 
Polygons  and  closed  lines  have  area.  Suppose  this 
kind  of  domain  is  to  be  domain  number  3.   Then  we  write: 


34 


3  'STRUCTURE i SHAPE*  7  7  'LINE*  'TRIANG'  •CIRCLE' 

•ELLIPSE'  •HEXAGON' 
•SQUARE'  'TRAP.' 
4  4  'CLOSED  LINE'  •4-SIDED1 
•POLYGON'  'HAVE  AREA' 

2  2  3 

2  5  6 

3  8  14 
2  ?  9 

The  domain  is  named  "shape"  and  has  7  levels  which 

are  named  as  this  table  indicate si   0  line 

1  triang 
Pour  internal  nodes  are  to         2  circle 


3  ellipse 


be  defined  and  will  be  given       4  hexagon 

5  square 
internal  numbers  as  the  exten-      6  trap. 

sion  to  the  table  indicates  1        7  closed  line 

8  4-sided 
(Note  that  these  extended  9  polygon 

10  have  area 
levels  may  not  be  found  in  the 

input  data  defining  the  sample  events*)  The  relation- 
ships between  the  internal  nodes  and  the  leaves  are 
given  by  the  four  specifications  following  the  last 
internal  node  name.   "2  2  3"  applies  to  name  7  (the 
first  internal  node)  and  says  there  are  2  conceptual 
refinements  of  "closed  line",  namely  items  2  (circle) 
and  3  (ellipse).  Similarly  there  are  two  refinements 
for  "4-sided"  which  are  items  5  (square)  and  6  (trap.) 
"Polygon"  has  3  refinements  which  are  8  (4-sided), 

1  (triang)  and  4  (hexagon).  Lastly,  "have  area"  has 

2  conceptual  refinements!   7  (closed  line)  and  9 
(polygon). 
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number  of  variables  and  domain  number  for  each 
n,  <n  numbers  separated  by  space s> 
default*  no  default 

This  specification  follows  the  last  domain  definition, 
n  specifies  the  number  of  variables  and  each  of  the 
n  numbers  which  follow  must  be  the  number  of  a  domain 
which  was  previously  defined.   Many  variables  may 
have  the  same  domain. 

number  of  variable  names  and  name  for  each 

m,  <m  names  each  enclosed  in  apostrophes> 
default:   no  default 

m  may  be  zero  in  which  case  no  names  may  be  given. 
In  that  case  the  variables  are  automatically  named 
Xi  where  i  ranges  from  1  to  the  number  of  variables. 
If  m  is  less  than  the  number  of  variables,  then  those 
variables  not  given  special  names  will  retain  their 
Xi  form  of  name.   If  a  given  name  begins  with  a 
period,  the  period  is  removed  and  replaced  by  the 
name  given  to  the  domain.   Thus  if  a  variable  is 
of  domain  number  2  (as  defined  in  a  previous  example) 
and  its  special  name  is  •  •#!.•  then  it  will  be  refered 
to  by  the  name  "C0L0R#1M  on  all  output.   The  following 
example  of  a  whole  AQ7UNI  input  stream  illustrates 
the  variable  naming  feature. 


1 

2 

I 

5 
6 

7 
8 

9 
10 
11 
12 

13 
14 

15 
16 

17 

18 

19 
20 
21 
22 
23 
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Sample  AQ7UNI  Input  Stream 
using  Domain  Definitions 


INF0RM-VECT0R      NAMES»3 

DOMAINS* 2   TITLE«1| 

THIS  WILL  BE  THE  TITLE  OP  THIS  EXAMPLE 

1   'FACTOR'  4  0 

•FACTOR tSIZE'  3  3  'SMALL'  'MED'  'LARGE' 

2  2  12 


0.0 


2 

4, 

0 
1 
2 
2 
2 
2 
2 
1 
2 
1 


OF  #1' 


OF  #2'   'TYPE 


OF  BOX' 


1 
1 
0 
2 
2 
2 
2 
2 
2 
2 


UNICLASS-2   QUTs'l'Bi 

MODE-' EXACT'      NGB-5     ULIST-'IO'      NCRTT«2| 

4      7      0.25      0.6 
MODE-'APPROX'      DT-.375     RANK-2      ULIST-'ll'Bi 


line  It  the  total  number  of  names  is  3  (domain  and 
variable  names  do  not  count). 

line  2i   2  domains  will  be  defined. 

line  kt      domain  #1  is  of  factor  type  with  k   levels.   No 
special  names  are  used. 

line  5»   domain  #2  is  of  factor  type  with  3  levels  given 
special  names.   The  domain  is  named  "size." 

line  6 i   there  are  4  variables.   Variables  1,  2,  and  4 

are  defined  on  domain  #2  while  variable  3  is  defined 
on  domain  #1. 

line  7*     The  variables  are  named  as  follows i   "size  of  #1", 
"size  of  #2",  "type",  and  "size  of  box". 
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APPENDIX  I 


Program  Listing  of  AQ7UNI 
(Version  2) 


November  1978 
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STBT   LET    HT 


AQ70BI    -    TUSIOI    2 


3 
4 

I 
7 

8 

9 

10 

12 

13 

14 

15 

16 
17 
18 
19 

20 

21 
22 

II 

15 
26 

il 
29 

30 
32 

33 

13 

36 
37 
38 


39 
42 
43 
00 
05 
06 
07 


AQ70BI:    PBOC   OPTIONS  (Bill)  ; 
DCL 


/*♦♦♦    AQ7   BITB    DIICL1SS    ♦  ♦♦•/ 


{LQTBACZ,STBACI.QST,QLQT,LQSI,SATE,SA¥ELQ)    /•AQTAL    (AQ7)    OIL!*/ 

BIT  (1)    ALIGNED, 
(BAXST4B, COT  STAB. ICE)     /'AQTAL     (AQ7)     OIL!*/ 

FIXED   BIB(15). 
BODE    /•AQTAL     (107)     OIL!*/ 
B(2)     ALIPED, 


CHA1 


BPC  /•  BOBBEB  OF  BITS  PXB  CBABACTEB  •/ 
FIXED  BIb]15) 


BOB! 


TLB  •/ 
CLASSES 


ill 
CBABBOr   /*    „ 

CHAB(BO)     ALIGNED, 
CLASSES   /*    BAXIBOB    BOBBBB   OP 

FIXED   BIB(15), 
COVEB    /•    PILE    TO    IBICB    COBPLEIBS    BAI    BE    BBITTII    •/ 

PILE    STBZAfl   OOTPOT   EXTSBNAL. 
CEBOG    /*    COBTBOL    OP    DEBOC   OOTPOT   */ 

BITM 
001 


BITM)    ALIGNED. 

BAI VS   /•    BOBBBB    OP    DOBAIBS    DKFIIBD    •/ 

15   /•    BALP-BOBD    BOBK    ABBA,    OTEBLATS    Pi 


PB1 

PIIED  BIB  (15) 
PB  /•  STBDCTOBE 


PB   •/ 


DBPIBBD   TO   COT El    PB15 


/ 


BASED  ( 
(PILL1,PC1       /•    TBE    TBO    BTTXS    IB    PB15 

CUAB(1)     ALIGBBD. 
PLOSB    /•   IBDICATES    BBBB   IIPUT   DATA    BUST   BZ    SKIPPED   •/ 

BITM)    ALIGBBD. 
I IP OB  8    /*    ETZNT   iBPDT    POBBAT     (CABBA    OB    TBCTOB) 


CHAB(6) 
HAXBABELEI 

PIXED 
BAI  NT   / 


ALIGBBD, 
/•.BAI    BOBBEB    OP   CBABS    IB    EACH    BABE   •/ 


PIIED  BIBMS), 

X1T  /•  BAI  BOBBEB  OP  TABIABLES  •/ 

PIXED  BIBM5), 
BABES  /•  BOBBBB  OP  DEPIBBJ)  BABES  •/ 

PIXED  BIBMS). 
■  BO  /•  BAX  BOBBBB  OP  COBPLEZBS  IB  A 


COTEB  •/ 
I  TO  PKIBT  ETEBT  DATA 


*/ 


PIXED   BIB (IS). 
PITE   /•   IBDICATES    . 

BITM)    ALIGBED, 
STLTLS    /•    BAX    BOBBBB    OP    STBOCTOBB    LEfSLS    •/ 

PIXED    BIB  (151, 
TITLE    /•    BOBBEB   OP    HIES    OP    TITLE    DATA    •/ 

FIXED    BIBM5).  , 

TfiDBOP    /•    TEAB5LATE   TABLE  TO   DBOP   LEFTBOST    BIT   •/ 

CHAB(2S6)     ALIGBBD. 
IRIDX    /•    LOOKOP  TABLE   TO   GIVE   IBDEX   OP   LEFTBOST   BIT*/ 

(0:255)     FIXED    BIB  (15). 
TBPOP    /•    LOOKOP   TABLE   TO   GITE    POPOLATIOB    OP    BTTE    •/ 

(0:255)    PIXED   BIB(15)  , 

(I, J,J1,J2,E)     FIXED    BIB  (31); 

BPC   -   8:      /»   THEBZ   ABB   8    BITS   PEE   CBABACTEB   •/ 

TBIDX(O)    •    8; 

J1,J2  «    1: 

DO   |  •   7  TO  0  BT  -1j 

DO  J  =   J1   TO  J2; 

TRIDX  (J)    -   I; 

END; 
J1   »   J2*1;      J2   «    (J1»2)-1; 

END; 

TBPOP(O)    *    0; 

J1   «    t; 

DO   I   -    1    TO   8; 

DO  J  «    0   TO   J 1-1: 

TBPOP  (J*J1)    -    1    ♦   TBPOP  (J); 
END: 
J1  -   51    •   2; 
EBD; 

FP  ■    ADDB(PB15)  ; 
FB15  -    0: 
S0BSIB(TfiDHOP,1,1)    -    FC1; 

J1.J2  -  1: 

DO    I   *    1    TO   8: 
DO   J   -   J1    TO   J2; 

FB15   -    J-J1: 

SOBSTB  (TBDB0P,0O,1)    ■    FC1; 

EBD: 
J1   *   J2*1;    J2   '    (J1*2)-1; 
END; 


DEBOG 


O'B; 


Oil    ENDFILEjSXSIN) 
LIST 


BEGIB; 

('END    OF    DATA    OB    STSIB    FILE'): 

(•AQ70NI    ENDS') ; 


POT    SKIP  (3) 

POT    SKIP  (2      LIST 

STOP; 

EBD; 

/•    BEGIN    BEEE    TO    STABT    NEB    PBOBLEB 

*/ 
NEBDATA:       CLASSZS*32;    BAXNT-32;    BAXNABELEN«8; 
HODE='IC' : 
INFOBB    «    'YECTOB'     : 
TITLI.DOHAIKS.KABES, STLTLS    -    0; 
NBQ=35: 
PNTE*'1'B; 
FL0SH='0'B; 
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STBT    LET    NT 


AQ70NI    -    VERSION     2 


48 


19 
50 
51 
52 
53 
54 
55 
56 
57 
58 


59 

60 


/*    BEAD    AQ7    KBINOHDS 
•/ 

GET  DATA(lGE,«nu,L 
SATE.SATELQ.HAXS 
CLASS ES.BAX&V. DO 

/•    PBOCBSS    TITLE 


CTBACE.STBACE,gLOT,OST, PHTE.HODB, 
lAB,CUTSTAB.IBP0BfltflTtE,LQST, 
BAINS, BABES , BAI NAHELEI ,STL VLS.D1B 


OBB06) ; 


r*T 


DP) 
IT 


IcHABBUF 


IF    TITLE>0    THBH    DO; 
GET   SKIPM): 
DO    1*1    TO    TITLE: 
GET    EDIT  (CH ABB 
POT    SRIP(I)     £D 
END; 

bid: 
pot  skip(2)  list!' 
pot  skip(2)   edit?' 
if  debog  then  pot 

nhc,dohaibs,nahe 


BLKA:    BEGIB; 

DCL    #E    /»    BOH BEE    OF    ETEBTS    •/ 
FIZEC    BIB  (31) 


)  (COL0U(20)  ,A)  ; 


AQ70HI   -    VERSION    2   -   OCT   1978»): 

IHPOT   FOBHAT  IS    • .IBFOBH)  (A, A)  : 

DATA  (PNTE. DEBOG. IBFOBH, BODE, FLOSH, 

S, BAXSV,flAXNABELEH,CLASSBS,STLTLS, TITLE) ; 


•IVABS    /•    HOBBEB    OF    IHTEBTAL    TABIABLES    */ 

FIXED    BIB  (15), 
•BABES    /*    NEXT    IBDEX    OF    A    BABE    */ 

FIXEE    BIB  (31)  , 
#N AVARS    /*    HOBBBB    OF    VARIABLES    BITB    HA    TALOES    •/ 

FIXEE    BIB  (15)  , 
•STBOC   /*    BEIT    IBDEX    OF    A    STBOCTOBE    */ 

FIXE!    BIBJ31), 
*S TABS    /•    HOBBEB    OF    STBOCTOBED    VABIABLES    •/ 

FIXES    BIB  (151. 
AHABE    /*    BOSK    AREA    FOB    DZFIBED    BABES    */ 

CBAB  (HAINAHELEBI     TAB    ALIGIED, 
B*E   /•    BOBBEB   OF    BTEHTS    IB    BIT    OBITS    (HOLT    OF    BPC) •/ 

FIXES    BIB  (15)  . 
BLEB    /•    LEBGTH   OF   ETEBT   BEPBESEBTATIOB   IB    BITS   */ 

FIXES    BIBJ311, 

"cflxlW  JHfPBHMf?" TABIABLE  *' 

CtE  /*  BOBBEB  OF  ETEBTS  IB  CHAB  OBITS  •/ 

FIXEE  BIB  115)  . 
CLBB  /•  LENGTH  OF  ETEBT  BEPBESEBTATIOB  IB  CBABS  •/ 

FIXES  BIB  (31)  , 


CO  /*  CBAB 


OPPsI 


T  FOB  EACH  TABIABLE  */ 


(BAXBT)  FIXED  BIN  (15) , 
Dt_/»  SOBAIB  BOBBEB  COBBEBTLI  IB  OSE  •/ 

FIXES  BIN  (31)  , 
DOH*  /»  DOHAIB  BOBBEB  FOB  EACB  TABIABLE  •/ 

(HAXHT)  FIXED  BIHJ15) . 
DOHDATA  /*  SOBAIN  DATA  */ 


LETELS  IB  THE  DOHAIB  */ 


(HAX  (I.DOBlHSn, 
#LVLS  /•  BOBBEB  OF 

FIXES  BIB  (151  , 
DTTPE  /*  DOHAIB  TIPB  (I,S,F)  */ 

CHABjl)  ALIGNED, 
HAHESIEX  /•  INDEX  TO  FIBST  DEFIBED  BABE  */ 

FIXEE  BIB  (15)  . 
PBEPIX  /•  NAHE  ASSIGNED  TO  DOHAIB  */ 

CHAB  (HAXNAHELEN)  TAB  ALIGNED, 
STBUCIEX  /«  ItlDEI  TO  FIBST  STBOCTOBE  ELEHEHT  */ 

FIXES  BIN  (15), 
IDBAHES  /•  DEFINED  NAHES  FOB  TABIABLE  TALOES  */ 

(MAX  (1  ,  NAHES))  CBAB  (HAXNAHELEN)  TAB  ALIGNED, 
INTVABS  /*  LIST  OF  IBTEBVAL  VABIABLES  */ 

(HAXNT)  FIXED  BIN  (151. 
LEAF  /»  VALUE  OF  A  LEAF  IB  STfiOCTOBE  TBEE  */ 

FIXES  BIN  (31) . 
LIBITIAL  /*  ABEA  OF  THE  ETENT  SPACE  •/ 

FLOAT, 
BAXCL  /•  HIGHEST  CLASS  BOBBEB  •/ 

FIXEE  BINJ3V 
BAXET  /•  LABGE 

FIXES 
HAXSB  /•  LAtiGE 


<3lsT 

3!sf 

BXHAHE  /•  HOBBEB 


BINJ31), 
/•  LABGEST 
FIXES  BIN  (31) 


BOBBEB  OF  ETEBTS  IB  A  CLASS*/ 


HOHBEB  OF  STBOCTOBE  BITS  •/ 

OF  BABES  ALLOiED  FOB  A  DOHAIB  •/ 


FIXEE  BIB  (311, 
BAIND  /*  INDICATES  TABIABLES  BITB  BA  TALOES  •/ 

(HAXNT)  CHARM)  ALIGNED. 
BATABS  /*  TABIABLES  BITB  BA  TALOES  •/ 

(HAXRV)  FIXED  BIBM5)  , 
BC  /•  NOHBEB  OF  CHARACTERS  BEPBESEBTIBG  A  TABIABLE*/ 

(HAXHT)  FIXED  BIN(15l, 
NCL  /*  BOBBEB  OF  CLASSES  */ 

FIXEE  BIN  (31) , 
NCHAX  /*  LABGEST  OF  THE  BC  (I)  */ 

FIXES  BIN(31). 
BE  /*  NOHBEB  OF  EVENTS  IN  EACH  CLASS  */ 


(0:CIASSES)  FIXED  BIN  (15), 
I  /*  NOHBEB  OF  IHTEBIOB  NO 
FIXEE  BIN  (31) 


NHL   /•    NOHBE 

UEE    BIN  (31)  , 
HI    /»    NAHES    INDEX 


DES    IB    A    STBOCTOBE    */ 


IN    OSE    */ 


FIXES    BIN  (31> 
NL    /*    NOHBEB    OF    LEVEL 

(HAXNT)     FIXED    BIN  (15)  . 
NLVL    /*    MOHBEfc    CF    LEVELS 


FIXES    BIN  (31 
NNAHE    /*     NOHBE 

FIXES 
NV    /*     NOHBEB 


FOB    EACH    TABIABLE    •/ 
FOB    A    DOHAIN    */ 


BIN  (31)  , 
/*    NOHBEB    OF    T 
FIXES    BIN  (31)  , 


OF    NAHES    ENTEBED    */ 


VARIABLES    */ 
HSPEC    /*    NOriBEEOF    SPECIFICATIONS    EHTEBED    */ 
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SIBT  LET  NT 


AQ70II  -  TBBSIOB  2 


61 

b2 


65 
66 
67 
69 

7? 

77 

78 


79 

eo 

81 
62 
83 
64 
85 
66 
67 

88 
89 
90 
91 

11 
94 
95 
96 
97. 
98 
99 
100 

1C1 
1C2 
103 

104 
105 
106 
107 

M 

110 

111 

112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 

123 


m 


124 
125 
126 
127 
128 


1?9 
130 
121 
132 
133 
134 
135 
136 


FIIEt  Bin (3 
SI  /•  STBOCID 

FIXED  BIH(3 
STBDC  /•  STBO 

(BAI  (1.STLT 
STB0CTAB5  /• 

(HAI1T)  FIX 
TIPE  /»  TIBIA 

CHAB1 
TABBABE  /•  BA 

(BAIBT)  CBA 
TABTIPE  /•  II 

(BAIBT)  CBA 
.1 


BE' 


IBDBI  IB  OSB  •/ 


ct6bb 

lsi)  piibd  bibm5). 

stboctobed  tabiables 


BIBJ 


•/ 


■  L 


H    /*    LEBGT 
FIXED    BIN  (3 


ID  Bill 

BLB  TIPB  »/ 

ILB1+10)  TIB  ALIGNED, 

BE  OF  EACH  TABIABLE  */ 

B(BAXNAHELBB)  TAB  ALIGBED, 

P£  OF  EACH  TABIABLE  •/ 

B(1)  ALIGNED. 

b  OF  BIT  BOBK  ABBAS  IB  BITS  */ 

1). 


(I.J.I)  FIXED  BIB(31)  ; 

•ITABS,«STABS,«NATABS   -    0; 

#NAHES,#STB0C,BAISB-1; 

IF    DOBAIJiS    <    1    TBBB    DO; 
/*    DETEBHIBi    IBTEBVALS   OB    FACTOBS    •/ 

GET   LIST  (NSPEC, TIPE) : 

IF   SOBSTfitTIPi.l,!)-1!1    THEB    DO; 

ABAHB   -    'F» ;    TIPE  «    'I*; 

IBD: 
ELSE   DO; 

ANABE   -    'I' ;    TIPB   -    'F'; 

BID: 
TABTIPE   ■    ANABB; 
DO   1-1    TO    NSPEC; 

GET  LIST  (J)  ; 

TABTIPI (J)  ■  TIPB; 

BND; 

/•    BEAD    BOBBEB   OF    TABIBBLBS    •/ 
GET    LIST  (NT)  : 
IF   BT    >    BAIVT    TBBB    DO: 

PUT    SKIP    LIST  rTABIABLES    EXCEED    BAIBT'): 

FLOSB   »    M'B: 

GO   TO    ELBA    BBD; 

END: 
DO  1-1    TO    BT; 

TABBAHE(I)    ■    'I'     II    BOB  (1,0); 

END; 

IF   NSPEC^O    I     NSPEC-BT   TBBB    DO: 

POT    SKIP    EDIT  ('ALL    TABIABLES    BILL    BE    COTEBED    BT     ')   (A); 
IF    TABTIPE (1)"'PT   TBBB    POT    EDIT ('FACTOBS')  (A); 
ELSE    DC* 

POT    IDITriBTEBTALS')  (*)  ; 
•I?ABS»NT; 
DO    I«1    TO    BT; 
INTTABS (I)«I; 
ENC; 
END; 
END: 
ELSE    DO: 

POT    SKIP    LISTJ'THE    FOLL08IBG    TABIABLES    ABE    ' 

I  I 'COTEBED    BI    FACTOBS'); 
J1    «    0; 
DO    I=»1    TO    BT; 

IF    TABTIPE  (I)  =  'P'    THEB    DO; 
IF    NV>27    THEB    J1    -    J1    ♦    1; 
ELSE  J1    »   I: 
IF   J1    >    27  THEN    J1   «    Is 
POT    EDIT  (I)     (C0L(35*(J1»3)  )  ,P(3)  )  ; 

lit  ■ 

END: 
POT    SKIP    LIST  ('THE    FOLLOIIBG   TABIABLES   ABE    * 

H'COTEBED    BI    IBTBBTALS*)  ; 
J1    -    0; 
DO   I»1    TO    NT; 

IF    TABTIPIJI)«'I'    TBBB   DO; 

IF    HT   >    27   THEB    Jl    -   J1    ♦    1; 

ELSE   J1    -   IS 

IF   J1    >    27   THEN    J1    ■    Is 

?I0?Aliiii»AfiCT,35MjW3,,'M3,,: 
INTVABS  (IITABS)-I; 

IIS; 

END; 
END; 

POT    SKIP  (2)     EDIT  (' N0B3EB    OF    TABIABLES    »',NT)   (A,F(4)); 

/*    BEAD    NOBBEB    OF    IETELS      •/ 

GET  LIST((NL(I)  DC  1=1  TO  NT)); 

POT  SKIP  EDIT^BUBBEB  OF  LEVELS  FOB  EACH  TABIABLE:  •  )  (A)  ; 


DO  1=1  TO  NT)  )  (COL  (38)  ,  (27)  F  (3))  ; 


TJ 
PUT  EDIT((NL(I) 

END: 
ELSE  DO; 

/*  BEAD  DOHAIN  DEFINITIONS  */ 

POT  SKIP  (2)  LIST  ('DOHAIN  DEFINITIONS'); 

PUT  SKIP  (2); 

DC  I  =  1  TO  DCBAINS: 

DO HD AT A  (I) . ILVLS.DOBDATA (I) . NABESIDI=0; 

DOMDATA  I  . SIBUCIDX.KI.SI-O; 

DOHDAIAJI  .EBEFIX=',; 

GET  LIST  (Dl.TYPE) ; 

IF  III  «  1  IBEN  DO; 
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STBT 

LBV 

■  T 

137 

2 

3 

138 

2 

3 

139 

2 

3 

140 

2 

3 

141 

2 

2 

142 

2 

2 

113 

2 

2 

144 

2 

I 

145 

2 

146 

2 

2 

147 

2 

3 

146 

2 

3 

149 

2 

4 

150 

2 

4 

151 

2 

4 

152 

2 

3 

153 

2 

3 

154 

2 

4 

155 

2 

• 

156 

2 

4 

157 

2 

3 

158 

2 

4 

159 

2 

4 

160 

2 

3 

161 

2 

2 

162 

2 

3 

163 

2 

3 

164 
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211 
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AQ7DHI    -    VEBSIOM    2 
POT    SKIP    LIST     ('DOBAIH    DBFIMITIOM • . 1, ' EI PECTBD    BUT*, 

di.'Foomd') ; 
FLOSB  ■    • 1'B: 
GO    TO    BLKA    i&E; 
BUD: 
GET   LIST    (HLTL.HBABB) ; 
DOBDATA(D#) .4LVLS   «    HLTL; 
DOBDATAJDli .CTXPB   -    TTPB; 
J    K    INDEX  It  T  P  jI    •  •  ■  \  • 

IP    J>0    THEM    DCBDATMD*)  -PBBPIX-SOBSTB (TT PE.J* 1)  ; 
ir    HHABE    >    0    THEB    DO; 
BXBABE   ■    ILTL: 

IP    #KABES*BIh1bE-1    <=    BARBS    THEM    DO; 
DOKDATA <D«) .1ABESIDI, HI    -     #NAB£S; 
•  BABES    ■    tHABES    ♦    HIHABE; 
EH  L  * 
ELSE    BXBABE   *    0: 
00    J   =    0   TO    11ABE-1; 
GET    LlSTjAHABB): 

IP    J    <    BXBABE    THEM    IDBABBS (HI»J)     ■    AIABB; 
EMC: 
IP    HHABE    <    BXBABE   THE!    DO   J   -    BIABB   TO    BXMAHB-1; 
ID1ABES  (HI*J)    ■    MOH(J,0); 
EMC; 


•S*    TBII   DO: 
BAISB  ■    HLTL; 


HBL; 


BID, 
IP  DOBEATA(EI).DTTPE  - 
IP  BAXSB  <  HLTL  THBM 
GET  LIST (VBL.M BABE) ; 
IP  BAXSB  <  MHL  THBM  BAXSB 
IP  MMABE  >  0  THEM  DO; 
BXBABB  -  MHL: 
IP  DOBDATA(Ci).IABESIDX  >  0  THEM 

IF  »MABES+BIMABB-1  <*  BASIS  THBM  DO; 

MI    -    «MABES; 

•BABES    -    #HABKS*BXMABB; 

IMC: 

ELSE  DO: 

•NABBS  =  DOHDATA(D«) .IABESIDX; 

EOBDATA  (0#) .BABBSIDX  -  0; 

BXMABE    =    0; 

AMD; 
ELSE   BXBABE  *   0: 
CO   J   i    0    10    MMABE-1; 

GET    LIST(AHABB): 


IF   J    <    BXMABE   THBM    IDBABBS (HI* J) 
IMD; 


A BABE; 


IF    BMABE    <    BXBABE    THEI    DO    J   ■=    MB  ABB    TO    BXBABE- 1; 
IDBAHES  (MI*J)    *    M0fl(HLTL*J,0) ; 
IMD; 
EHC: 
DOBCATA(Dt) .STBOCIDX.SI  -    f STBOC; 
•STBOC   =    ISTBOC    ♦    HLTL    ♦    BHL; 
IF    •STHOC-I    >    STLTLS   THEB   DO: 

POT    SKIP    LIST    {'STLTLS   TO    LOi   TO    ACCOHODATE    • 

ll'STBOCTOBBD   DOBAIM    HO.',D»); 
FLOSB   =    '1'B: 
GO   TO   BIKA   BSD; 
£H£  ■  ™ 

DO    J   =    HLTL   TO    HLVL*HHL-1; 
GET   LIST(BT) ; 
DO   K   =    1    TO    HT: 
GET   LIST (LEAF); 
IP    LEAF    >=    J    THEB    DO: 

POT    SKIP    LIST  (• STBOCTOBE    DBPIHITIOB    EBHOB', 

LEAF.'IH    LETEL'.J) ; 
FLOSB   *    M'B: 
GO    TO   BLKA   BID; 
EBD; 
STBOC  (SI+LEAF)     =    J; 
EBD; 
EMC; 
BHD; 

/*    PBIHT    DOBAIB    DATA    •/ 


IF    DOBCATA( 
ELSE    IF    DON 
ELSE    TIPE   = 
POT    SKIP    ED 
DOflDATA(D 
IF    DOB  LATA ( 
IF    DCHDAT 
POT    EDITJ 
HI    ■    DOHA 
DO    J   =    0 
PUT    SKI 
ENC; 
EMC; 
ELSE; 
ELSE    DC: 
POT    EDIT( 
SI    =    DOHD 
NI    =    COMD 
DO    J   =    0 
POT    SKI 
K    =    1: 
CO    BHIL 
IF    HI 
ELSE 
K,LEA 
IF    K> 
END; 
EMC; 
EHD; 


C«).DTIPE   ■    'S'    THBM   TTPB   *    •STBOCTOBE': 
CATA(D#).DTIPE  -    'I*    THBM    TTPB  -    'IBTEBTAL'; 

•FACIOB* ; 


IT  (•  DOBAIH  '.D*.'  OF  •-TTPB,1  TIPE  HAS  •, 

•  ) .»LTLS,«  LEVELS')  (COL (4)  ,i,P(2),  (3) A,F(«)  ,A) ; 

Ctl.DTTPE  -•=  'S'  THEN 

A(t») .MABBSIDX  -—  0  THEM  DO: 

•VALUES  iEBE  MAHED  AS  FOLLOWS : • )  (I  (4)  , A)  ; 

ATA(D») .HAHESIDI: 

TO  DOBDATA(Dt) .«LVLS-1; 

P  EDIT(J,IDHAHES(HI-»J)  J   (COL  (12) ,F (4)  ,COL  (22)  ,A)  ; 


•STBOCTOBE  BAP  FOLLOWS • )  (I  (6)  , A)  ; 

ATA(D») .STBOCIDI; 

ATA  (Cti .HABESIDX: 

TC  DOHDATA  (Di)  .ILVLS-1; 

£  EDIIf  •)  <COL(11),A); 

LEAF  =  J; 

E  (K>0)  ; 

>0  THEN  POT  EDIT(IDNAHES(KI*L£AF)) (A) ; 

PUT  ECITjLEAFl JP ?3) ) ; 


E  =  STBOC  (SI  +  LEA., 

0  THEN  POT  £DIT(* 


->  ')  (A); 


hZ 


STBT  LET  IT 
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289 

290 
292 
293 

294 

211 

297 

298 


299 
300 
3C1 
302 
303 
304 
305 
306 
307 
308 


309 
310 


2   2 

2   2 


1  °0 

2  0 
2   0 


POT  SKIP  (2)  ; 
BBD; 


/*  BiAD  BOBBBfi  OF  LET ELS  •/ 

6IT    LIST(BT)  : 

IP   NT   >    BAXBT    TBBB    DO: 

POT    SKIP   USK'TABIABIBS   BICBED    BAXBT'); 

PLOSB   *    'VB: 

GO    TO    BLKA    lit; 

BID: 
POT    SKIP  (21     EEITCIOBBEB    OP    VABIABLES    - '  ,  IT)    <1»F(«)); 
GBT    LIST     (DOB  ♦  J  I)     DO    1-1    TO    DTI); 
"   EDIT(*DOBAIB    BDBBBB   FOB    I 


POT    SKIP   EDIT 


POT   EDIT  ( (DOB «  (I) 
1    tO   IT; 


I1CH    TiBIlBLB 

DO   1-1    TO    If)) (COL(38),(27)P 
DO  I   «    1    TO   II; 
Di    -    DOB* (I ) ; 
IF    D*    >   DOBAIIS   TBBI    DO; 

POT    SKIP    LISTf'DOBAII    I0IBBI    FOB    TABIABLI',1, 

KlJIPYW'11 

GO    TO    BLKA    IID; 

BID; 
■Lilt    -   DOHDATA(DI) .ILILS: 
TABTIPIjI)    -    EOflDATA(D«>  .WIPE: 
If    DOBEATA(E«).ETIPB  *    »I'    TBBI 

•ITABS  ■    «ITABS»1; 

IBTTABS(IIIABS)    -  I; 


■<;i«" 


DO; 


.si  I  •) . 

•STABS  -    (STABS*!; 


DTIPB 

-  i; 


TBBB   DO; 


STBOCIABS(ISTABS) 
BBD; 
BBD: 

POT   SKIP   BDITt'BOBBBB   OP   LBTBLS    FOB  BACB    TABIABLB: • ) (A); 
POT   BDITf" 
GBT   LIST i 

DO  I 


EC' 


T  <  CUB.  CX>    DO   1-1    TO   IT))JCOL(38).  (27)  P  (3) )  ; 
T    UBAMBi  :   /*   BBAD    TABIABLE    I  Alii   •/ 
1    TO    BIABE; 
GET    LIST(AIABE)  ; 
IP    I    <-    IT    TBIB    DO: 

IP    SOBSTB  (AHAbI.I,!)-'.'    TBBB 
TABBABE(I)    -    DOHDATA(DOH*(I) 
ELSE   TABBABE(I)    -   AIABE; 

«.!!Di 


).PBBPIX    ||    SOBSTB(ABABE,2) 


IF   111  BE   <    IT    TBBB    DO   I-IIABE+1    TO   IT; 

TAIBABZ(I)    ■    'X'    ||    BOB  (1,0); 
BID; 
BID; 

ICBAX   -   0:    CLE!   -  0;      LIIITIAL  -    1.0; 
DO    I  -    1    TO   IT: 

LIIITIAL   -   LIIITIAL   •    IL  (I)  ; 


f/BFC; 

ICBAX  -   IC(I); 


BID; 
BLBI  -   CLEI    • 


BPC; 


/•    BXAD    BOBBBB   OF    CLASSES    ABD    BOBBEB   ETBITS  II    BACB   •/ 
GET   LISTjICL); 
BAXCL- ICL-1: 
IF    HCL   >    CLASSES   TBEI    DO; 

POT    SKIP    LIST  ('CLASSES    SPECIF ICATIOI    OKLI    ALLOIS    OP    TO1, 
CLASSES. 'CLASSES') ; 

PLOSB   -    'VB: 

GO  TO    BLKA    BID; 

BBD; 
GET    LIST((IK(I)     DO  1-0   TO    BAXCL)); 
POT    SKIP    BtlTTIOBBEB    OP    ETBITS*- 

•    SPECIFIED   FOB   BACB   CLASS: «, • CLASS         IBTBITS') 
(A,A,SKIP(T),COL(8)  .A)  ; 
POT    EDIT  ((I. IE  (I)    DO   1-0   TO    BAXCL) )  (SKIP,  (2) P ( 10) ) ; 
tE,BAXBT   -    0; 


DO    I 
•  E 


0   TO    BAXCL; 
•  E    ♦    BBf~" 


BAXBT         II  (if    TBBI   BAXBT  -    BB (I) ; 

EID; 
CIE  -    <»E*EPC-1)    /  BPC; 
BtE   -    CIE    •    BPC; 
BLEN   -    SAX  (BtE.     BLEB.    flAXSB): 
IF    DEBOG    THEH    POT    DATA  (DOBEATA, It  BABES, STIDC.T ABTTPE, DOB #, 

•BABES, ISTBOC. BAXCL. BAXBT. BCL.IKTTAH5. *ITABS,STHOCTABS. 

t STABS, TXPE.BL, BO, CO, IC, Bt,BAXSB, «E, C»E, LIBIIIAL, BLEB, CLEB, 

BLEN,BCHAX,TAB1ABB) ; 

BLKB:    BBGIB; 

DCL  BT  /«  OBITEBSAL  BIT  TBCTOB  */ 
BIT  (4096)  EASED, 
CLIST  /*  CEITEBIA  LIST  ♦/ 
(7)  PIXEL  BIB  (15) 


III        L  J.  *£.  A.       B1R   I   IJJ    | 

CHAP   /*    BIT    BAP    OP    ETBBTS   IB    BACH   CLASS*/ 

(0: BAXCL)     EIT(BtE)     ALIGNED, 
CV   /•    OBIVEBSAL    CHAHACTEB    TECTO! 

CHAE(512f    EASED, 
DT   /*    DEHSITY   TBBESHOLD   */ 

FLOAT, 


>B   •/ 


£(*£)    /«    ETEBT    BEPBESEITATIOIS    •/ 
ES)     ALIGBED, 
•    TBI  CLASS    OP   EACH   BTBIT    */ 


UTjB 


ECLASS   / 

(•e)  r 


IXED    BIB(15) , 


43 


STHT  LEV  IT 
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3 

0 

212 

3 

0 

313 

3 

0 

314 

3 

0 

315 

3 

1 

316 

3 

2 

317 

3 

2 
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3 

2 
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3 

3 
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3 

3 
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3 

4 

323 

3 

4 

324 

3 

5 

325 

3 

5 

327 

3 

5 

3 

n 

328 

3 

3 

329 

3 

2 

330 

3 

1 

EEVN  /*  TUE  EVENT 

[#b[   fixed  BIN 


MO  IITBII  CLASS  FOB  BACH  EVENT*/ 


i#Bi  fixed  bin(15). 

BRANKC  /•  EVfBT  CHAIN  BT  Bill  */ 

(IE)  FIIED  BIM  (151 . 
Fill.   /•    CBITEBIA  EVALOATIOI  FLOATING  BESOLT  */ 

FLOAT, 
HCLIS1  /*  DBFAOLT  CHITEBIA  LIST  */ 

(7)     FlXEt  BIN  (15), 
HBCBIT  /•  DEFAOLT  NOBBEB  OF  CBITEBIA  •/ 

FIX1D  BINM5)  , 
HODE  /*  EXACT  OB  APPBOX  OB  BEL  OB  FBEE  */ 

CBABI6)  VAE  ALIGNED, 

1  BQ  /•  STORAGE  FOB  COHPLEXES  */ 

(BHC) , 

2  *££  /*  NOBBEB  OF  EVENTS  COVERED  iOT  BEHAIBING  »/ 

FIXED  BIN(31), 
2  #ER  /•  NOBBEB  OF  EVENTS  COVEBED  BEHAIIIMG  •/ 

FIXED  BIB  (31) , 
2  DBS  /•  DENSITY  OF  COBPLEI  */ 

FLOAT. 
2  IBT  /•  BIT  BBPBESEHTATION  OF  COHPLEX  */ 

BIT(BLEN)  ALIGNED. 
2  NBANK  /*  BANK  OF  COHPLEX  •/ 


FIXED  2IN(31). 
DEFAULT 


HTLIST 


FLO 


PI 

NCBIT  /*  NOHBEB 


OAT, 


TOLEBABCE  LIST  */ 


FIXED  BIN  (15)  . 
>RD"  BEING 


OF  CBITEBIA  */ 


BEIGBBOBBOODS  */ 


NGB  /»  N0HB1_ 

FIXED  BIBJ31L. 

INFOBBATION 

(0:B'AXCL)  - 
ONES  /•  SOOHCE  OF  STRINGS  OF  ONES  •/ 

BIT(HLEN)  ALIGNED, 
(OP1.0P2)  /*  SPBCIAL  OPTIONS  */ 

BIT(1)  ALIGNED. 
BANK  /*  BANK  LIBIT  VALOE  */ 

FIXED  BIN(31), 
BANKS  /•  CHAIN5  OF  EVENTS  OF  SABS  BANK  •/ 

(0:N%*1)  FIXED  BIBJ31), 
QOT  /*  QOICK  TBACE  OPTION  */ 

BIT  (1)  ALIGNED, 
SAVEC  /•  SAVE  COHPLEXES  OPTION  */ 

BITfl)  ALIGNED 


/'*  STR0CT0RE  BIT  BEPBESENTATIOBS  */ 
(tSTBOQ  _BITJHAISB^  ALIGNED, 


SBITS 


SBBOBK  /•  SIBOCTORE  BOB!  ABEA  •/ 

BIT(HAXSB)  ALIGNED, 
SPAREHASK  /«  INDICATES  OHASSIGNBD  BITS  IN  BBPS  •/ 

BIT(BL£N1  ALIGNED. 
ST  /*  SELECTOR  THRESHOLD  •/ 

FIXED  BIN(31), 
TLIST  /*  LIST  OF  TOLEBAHCE  VALOBS  •/ 

(7)  FLOAT, 
TYPE  /*  TYPE  OF  COVEB  (IC,DC)  »/ 

CHAR  (6)  VAB  ALIGNED, 
OLIST  /*  CLASS  SELECTION  INDICATOB  */ 

BIT  (NCL)  ALIGNED, 
DNICLASS  /»  NOBBEB  OF  CHABACTEBIZATIOIS  */ 

FIXED  BIN(31). 
ONITBACE  /*  DETAILED  TBACE  OPTION  •/ 

BIT(1)  ALIGNED, 

'•  CBITEBIA  ETALOATIOH  VALOE  */ 


r  cc 


VAL  /» 

FIXED  BINJ31), 
H  /•  EVENT  HEIGHT  VALOES 

(0:BAXCL,1:HAXEV)  FLOAT  CONTROLLED, 
WEE  /•  BIT  HAP  OF  COVEBED  EVEITS  HOT  IN  BBHAINING*/ 

BIT  (B#E)  ALIGNED, 
HEB  /•  BIT  BAP  OF  COVEBED  EVENTS  BEBAINING  */ 

BIT  (B*E)  ALIGNED, 
HLBE  /•  BIT  BAP  OF  COHPLEX  */ 

BIT  (BLEU)  ALIGNED, 
BNEE  /*  BIT  BAP  OF  EVEITS  IN  NEIGHBORHOOD  */ 

BITJB*E)   ALIGNED, 
(01,82)  /*  BIT  BOHK 


1.B2)  /*  BIT  BOBK  ABEA  */ 
BIT(WLEN)  ALIGNED, 
/»  VARIABLE  BEIGHTS  */ 
(NV)  FLOAT  CONTROLLED, 

(I,J,J1,J2)  FIXED  BIN  (31) ; 

ONES  *  'O'B: 
ONES  =  -•  ONES; 


SBITS  >=  'O'B; 

DO  D*  =  1  TO  DCHAINS: 

IF  DOHDATA(D«) .ETIPE  =  'S*  THEH  DO; 
SI  =  lOHDATA  (D») .STROCIDX; 
J2  =  EOHDATA  (Dt) .ILVLS-1; 
DO  I  =  0  TO  J2: 
J1  =  1:  J  =  I; 
DO  SHILE  (J1  >  0); 
J1,J  =  STBOC  (SI+J) ; 
If  J>J2  THEN  DO: 

SDBSTB  (SBITS  (SI*I) ,J-J2,1)  " 
SDBSTR  (SBITS  (SI«-J)  ,1*1,1)  = 
END; 
END; 
END; 
END; 
END; 

/*   INITIALIZE  VARIOUS  VARIABLES  AND  CONSTANTS 


•VB; 

l'B; 


kk 


STBT   1X1    BT 
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346 
3*7 
308 
3*9 
350 

351 
352 


in- 


M    3   0 

!3    I  8 


3B1 

Mi 

364    3 


38S 

366    3 
387    3   0 


388 
389 
390 
391 
392 
393 


3  8 


3  0 
3  1 
3   1 

1   1 

3  0 


399 

395 

I 

1 

100 

3 

1 

4C3 

I 

i 

404 

4C5 

3 

1 

406 

3 

1 

407 

3 

1 

408 

3 

2 

409 

3 

3 

410 

3 

3 

411 

3 

3 

412 

3 

3 

413 

414 

I 

\ 

415 

3 

3 

416 

3 

3 

417 

3 

3 

4  18 
419 

1 

\ 

420 

3 

1 

GET    LIST  (OUST)  : 

GIT   LIST{BCRIT, JCLIST(I)D0   1*1    TO   ICBIT)); 

GET   LIST  ( (TLIST (I)     DO   I« 1    TO   ICBIT) ) ; 

ir    KBIT   <    1   TBI!   DO; 

BCBIT   ■    1; 

C1ISTM)   -   1: 

ILISTJIJ    -   0.0; 

110: 
BHCBlt   -    ICBIT; 
BCLIST  -    CLIST; 
HTLiST   -    TLIST; 

/•      GET   IBPOT   BTEITS  •/ 

B   -    •0»B; 
IP   IBPOBB   -    'ViCTOi'    THBB   CALL   BSADTBC: 

ELSE   IP   IBPOBB   -    •GABBA1    TBBB   CALL    BBADCAB    ; 

POT    Silt (3)     LIST    (•••    IITALID   ETEBT   POBBAT    SPBCIPIBD 


KPJ3I     U 
-    '1*B; 


PLOSB 
ZBD    : 

IP   PLOSB    TBBB    GO   TO    BUB    BID; 

POT   SKIP<2)  ; 

J1,J2   ■    0: 

DO    J    -    1    10    ICBIT; 

IP   CLIST  (J) -3    TBBB    J1-1; 

1LSE   IP   CLIST  (J)*5   TBBB   J2-1; 

1BD; 
IP   J1-1    TUB   DO; 

ALLOCATE   Z; 

2  -    1,0: 

GET    DATA(Z)  : 

IP  STBACE  TBBI 

BBD; 
IP   J2»1    TBBB   DO; 

ALLOCATE    B; 

8  -1.0: 

GBT    DATl(I)  : 

IP    STBACB   TBJ 

END; 


); 


IN    POT    SKIP   DATA(Z) ; 


ill    POT    SKIP   DATA(B) ; 


<     (ic(I)«BPC)     TBBB 
Bo|l)*Bt(I)    TO    (C0II1*BC(I)-1) 

spabUasi!,j,1)    -   M'b; 


SPABBBASK  -    'O'B; 

DO   I   -    1    TO    BT : 
IP    BL(I)    <     (IC 

DO   J   •    BO 

S0BSTB(SP 

BBD; 
BID; 

CBAP  -    'O'B; 

J  -   1;; 

DO    I    »    0    TO    BAXCL: 

SOBSTB(CBAP<I)  ,J,BB(I))    -   ONES; 

J  «    J    ♦    NE(I)  ; 

END; 


•  BPC; 


SAVIC-'O'B: 


' lOBICLASS^OHTBACB.QOT.SATBC, DEBOG)  : 
TBEB    T~ 


»    BEAD   IB    OBICLASS   COTBB    OPTIOBS   •/ 
ONICLASS-0 
ONIIBAEE, 
GET    DATA     1 
IP    DEBOG    TBEB    POT    DATA (E,EBT 5. BCLASS.CBAP. SPABBBASK, 

OIES.OLIST. CLI ST, BCBIT.BCLI3T, BBC  BlT, TLIST, BTLIST, 

SBITS. OBICLASS. OBITBACE. DOT, BAIBD.BATABS,«NATABS) ; 
IP    SATBC    TBBB    OPE!    PILBfCOfEB)    LIB£5IZB(8d)     ; 
IP    OBITBACI   TBEB    QOT-M'B: 
POT   SKIP    EDIT('IOBBEB    OP    CALLS    POB    OBICLASS    COTBB    -', 

OBICLASS)  (A, P( «))  : 
IP    ONICLASS^O    TBBB    DO: 

POT   SKIP   LIST  ('OBICLASS   CABBOT    BB    IBGATITE.    0   ASSOBED') 

PLOSB   -    • 1«B: 

GO   TO   BIKB   BID; 

EBD: 
POT   SKIP    EDIT  ('OBITBACE 

•SAVE   COTBB    DATA 


LCE   •'.OBITBACE, 'QOICK    OBITBACE   -', QOT, 
,SATBt)     (A,P{2J  ,1(5).  A, P  (2)  ,X(S),i,P(2))  ; 


/*    BEAD   IB    OBICLASS  COTBB    OPTIOBS   •/ 

OBEOBI:       CO   1-1    TO    OBICLASS: 

BODB-'BEL':       DT-O.O:    BGB-3;       BAIE-BT;       TTPB-'IC; 

BCBIT-0;      OLISl-OIBS;       ST   -    BT; 

OP1.0P2  -    'O'B; 

GET    DATA    {BODE, DT, ST, BOB, OLIST, BCBIT, BABI,TIPE, 


BT  DATA  (HOEi.DT 

DEBOG, OS1.0E2) : 

f    DEBOG  TBEB  OKI 


IP  DEBOG  TBEB  OBITBACE, QOT 
IP  TYPE  ■•*  'DC  TBE1  TIFE  * 
IP  BCBIT  >  0  TBEB  DO; 
DO  J  =»  1  TC  BCBIT; 


M'B; 
'IC; 


GET    LISTjTAL) : 

IT   J   <-    1    IHEB   CLISTJJ 

ELSE    POT    SKIP    LISTCCB 


•EOT    OSEE') ; 

END; 
DO  J  -  1  TC  NCBIT; 
GET  LIST  IP"" 


)  -  »AL; 

ITBBION  TALOE'.TAL, 


IP  0  <-  7  THIN  TLIST(J)  «  PTAL: 

ELSE  POT  SKIP  LIS?  ('TOLEBAHCE  TALOE' ,PT AL, 

■HOT  OSEC)  ; 
BID: 
IP  BCBIT  >  7  THEB  NCBIT  -  7; 
EBD: 
ELSE  DO; 


<*5 


STBT  LET  IT 
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4<1 

023 
424 


129 
430 
431 
132 
433 
434 

435 

436 


425  3 

426  3 

427  3 


428 


437 

4 

1 

439 

4 

1 

440 

4 

1 

441 

4 

1 

442 

4 

1 

443 

4 

2 

444 

4 

3 

445 

4 

3 

446 

4 

3 

447 

4 

3 

NCBIT    «  BBCBIT; 

CLIST   *  BCLIST; 

TLIST  -  BTLIST; 
END; 

IP    BODE^'FBEF"       TBEI    DT=-0.000; 
IP    BODE«'EIACT'    TBEI    DT-1.0: 
POT    SKIP(3)     IDITC  J'.!,') '.'BODE 
•ST    =',ST, 'BGB    ='.BGB. 
■  .BANK ,'TIPE 


POT 


*    '.BODE, 'DT   »',DT, 


IP    OLIST   THE!; 
ELSE    DO: 

PUT    sIlP    LISTf'OLIST    SPECIFIES    10   CLASSES    OF    ETEBTS'); 

60   TO    NEXT   COTBB; 

END; 
IF    NGB    <    3   THEE   HGB   *    3; 

BLKC:    BEGII; 

DCL   «CLAZZ   /•    BUflBEE    OF   CLASSES   THIS   CHABACT2UZATI0E*/ 
FIXED    BIB  (15) . 
#£TN    /•    iOHBBB    OF    ETEBTS    THIS   CHARACTEBIZATIOB    */ 
FIIED    BINJ31)  . 


CLAZZ 


LIST 


CLASSES    V 


AZZ   /* 

JNCL1     FIXES    BUMS), 
CHIT   /*    CBITEBIA    TALDE    FOB   EACH    IEIGHBOBHOOD    */ 

(IGB)     FLOAT. 
DINITIAL    /»    DENSITI    OF    LBABIIIG    SIT    •/ 

FLOAT . 
EE   /•    E  TENTS    COTEBED    EOT    REHAIIIIC    */ 

(KGB)     BZT(B#E)     ALIGNED, 
Efi   /•    E TENTS    COTEBED    BEflilBIBG    •/ 

(NGB)     BITJBiB)     ALIGNED, 
ELIB   /•    INDICATES    BOT    ONE    OF    THE    BETTBB    BGHBBHOODS*/ 

(NGB)     ' 
IDX    /* 

FIXED  BIB(31)  IBITiOE 
HBB  /*  BIT  BAP  OF  H~ 

EIT(BIE)  ALIGNED, 
BEEP  /*  POIBTEB  TO  HIM   •/ 

POINTEB 
HQ 


BIT(1)  ALIGNED. 
BABDOB  INDEX  FOB  IEXTSUD  */ 

IB(31)  IBITiCtE), 
BIT  SAP  OF  BESAIBIBG  ETEBTS  * 


*  /*  NDBBEB  OF  COBPLEIES  GEB2BATED  •/ 

FIXED  BIB(31). 
HSEED  /*  BIT  HAP  OF  BEBAIBING  SEED  ETEBTS  V 

EIT(B«E)  ALIGNED, 
BSEEDP  /•  POIBTEB  TO  HSEED  */ 

POINTEB, 
NEE  /*  ETEHTS  II  TBE  IEIGHBOBHOOD  •/ 

(NGB)  BITJBtE)  ALIGNED. 

1  NGBB  /•  OTHEB  IEIGHBOBHOOD  DATA  */ 

(HGB)  . 

2  *E£  /*  NOBBEB  ETEBTS  II  EE  */ 
FIXED  BINJ31), 


*EB  /•  NDBBEB 
FIIED  BIN  (31)  , 
"  OF 


BITS  IN  EB  •/ 
COBPLEX  */ 


/ 


2  tLKE  /*  ABEA 

FLOAT, 
2  »N££  /•  BOBBEB  ETEHTS  II  IKE 

FIXED  BIN  (31) , 
2  DEB  /*  DENSITY  OF  COBPLEX  */ 

FLOAT, 
2  BBANK  /»  BANK  OF  TBE  COBPLEX  */ 

FIXED  BIH(31), 
2  SEED  /•  SEED  STENT  FOB  THE  NEIGHBOBHOOD  */ 


FIXED  BII(31), 

COBPLEX     EBIRC  THE  BEIGHBOBHOOD  •/ 


BGL  /•  NOBB 
EXE 


TBE  BEST  IEIGHBOBHOOD  •/ 

FIXED  BIN  (31" 
NLNE  r 

(NGB)  BITjBLEM).  ALIGNED 


MOeC  A    NDBBEB  OF  CHABS  IB  TAMABLE  HBP  */ 

FIXED  BIN(15). 
PEE  /*  PCIITEB  TO  EE  */ 

POIBTEB, 
PEE  /*  POIBTEB  TO  EB  */ 

FOINTEB, 
PLNE  /*  PCIITEB  TO  LHE  */ 

EOINTEB, 
PBLNE  /♦  POINTEB  TO  BLNE  */ 

EOINTEB, 
BEFBESH  /•  INDICATES  NEIGHBOBHOOD  SEBTICE  BEQ  */ 

(NGB)  BITM)  ALIGNED, 
SEEDS  /*  INDICATES  THAT  SEEDS  BEBAIN  */ 

EIT(I)  ALIGNED, 
STBT  /*  OFFSET  OP  TABIABLE  IB  BEP  •/ 

FIXED  BIN  (15)  , 

(I,J,K,I)  FIIED  BIN  (31)  ; 

BEEP  =  ADDB  (BEB)  ;   BSEEDP  =  ADDB(BSEED); 

*CLAZZ,BQ*, BANKS (0)  =  0; 

KEB  =  'O'B; 

#EVN  =  0; 

DO  I  =  0  TO  HAXCL: 

IF  (SOBSTBJULIST, 1*1,1) )  THEN  DO; 

•CLAZZ  =  #CLAZZ*1: 

CLAZZ  (ICLAZZ)  =  OLIST(I); 

BEB  =  HEB  I  CBAP(I)  ; 

«£VN  ■  *£TB  ♦  HE    I  ; 


**6 
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531 
532 


4  * 

4  4 

4  4 

4  4 

4  4 

4  3 

2  ! 

4  2 

:  i 

2  1 

4  4 

4  4 

:  i 

:  i 

s  i 

4  4 

4  3 

4  2 

4  2 

*  4 
4  2 

*  2 
4  2 

t  1 

4  2 

1  2 

4  3 

4  4 

4  4 

4  4 

4  4 

4  4 

4  5 

4  5 

4  5 

4  4 

4  5 

5  I 

4  S 

4  6 

4  6 

4  6 

4  5 

4  6 

4  6 

4  6 

4  6 

4  6 

4  5 

4  4 

4  5 

4  5 

4  5 

4  5 

4  4 

4  3 

4  2 

4  2 


526    4   1 

529  4   1 

530  4   1 


BID; 

HO: 

DIBITIAL  -  «XTB  /  LIIIIIU; 
IF  BOD*»'fiIi'  TUB!  DT  -  DT  • 
IF  DT  >  1.0  TBBB  DT  ■  1.0; 
as bbc  •  ui: 

BBFBESB  •  M'B; 

SEEDS  -  M'l: 

IF  DEBOG  THJi  POT  01TB  (BBB) ; 


DIBITIAL; 


DO    BHILE    (BBB) 
DO    I   -    1    ■ 

'Kit 


BITBACE   TBBB    POT    SKIP 
BEPBESli <|i'-    'O'B; 


IILB    B VESTS    IUIII    •/ 

BDIT('SEBTICIBC    B6BB    •' ,1) 


USB 
1BD; 
BBC; 


BBPBBSB(I)    ■    'I'l; 


D(Z);    /•    BOILD    UB    BOBUOOD    •/ 


SELECT    BBST   B6BBB0OD   */ 


BGL   -   CBITTAL:    /* 

IF    QDT    THIN   ClLl    BCBBBPOBT; 

IF    TTPE-'IC    TBBB   DO: 
PBB  -    A£DB(EB(BGL) J ; 
PB15  -    0; 
J   ■    1; 

DO   I  -    1   TO   C»E; 
PC1   - 
CO    BUIL1 

B  -   J«TBIDX(FB15): 
EBABKCjK)    -    BABKST.0) 
BABKS(O)    -   K: 
PCl    -    IBABSLATB(PCI.TBDBOP) ; 

J   -   J**   BPC; 
BED; 
BBC; 

IF    SATBC    TBBB    POT   SEIP   FILE (COf EB) 
HQ»   -    BQ«    ♦    1; 


l    TO   C*E: 

S0BSTBjPBB->C¥,I,1)  ; 
LL1    (PBl5>0i: 

J*TBIDX(FB15i: 


LIST (BLBB (BGL)) 


BGL)  ; 
BGL). 


BLBB  | 

BGBB(NGL) .< 

BGBBJBGLi.BIB: 

-    IGBB(IGL) . BBABK; 


:?5Ii 


BBB 
BBB 

DO    I 


IF    {-    BIFBBSbU))     TBBB   DO; 
SEE   -    IB  (I)     C    BE (BGL)  ; 
IB  (I)     -    BB(I)    |   BIB; 


IB  (I)    -    BB(I)    6    111 

ui  «    ACDBJBB(I)): 

SGBB(I).«EE   -    PDPOLATIOBfPBB,  1,C»E); 

(I)  .#EB    -    0    T"- 
SH(I)    »    M'B; 


IF 


BGBH|I).»BB    ■    0    TBBB    DO; 
BESH(I)    ■     " 
OBITBACE 


BLBB(I) 


BIFBB.. 

IF    OBITBACB   TBBB    POT    SKIP   BDITf'BGBB* 
1,'BEJBCTED   -    BO  (BBAIEIBG    XVBBTS') 

XBD; 
IF    (-   BBPBBSH(Il)    THE!    IF   TTPB-'DC    TBEB 
HLSE    ■    BLBEJBGL)     6 

PILBE  -    ADDfl  (BLBE)  ; 

DO    E 

IF    0BSPBC(!  fi(PBLBB->CT,CC      l),K 

BLSB  J*1; 
lit: 
IF    J-0   TBBB   DO; 

BBPBBSB(I)    -    M'B: 

SOBSTB  (aSEED.ICBBJI)  .SBED,1)     ■    ' 1'B; 

SEEDS   -    M'B: 

IF    OBITBiCE   TBBB    POT   SKIP    EDIT ('BOBS', 

•BEJECTED   -    BOT    DISJOIBT1)  (A ,P  (3)  , X  (1)  ,4)  ; 


•    1    TO   IT    BBILE  (J-0) ; 
BAIBD(K)    -    ~~THIB 
IF   OBSPBC  (SOBSTB (PBLBB- 3 


(A.P(3),I(1),A); 
DO; 


TBBB; 


bbdV1 


BBD; 

IF    (->    BEFBBSB(I)) 
IF    BBE   TBBB    DO; 


EE(I) 

it   ■ 


SiUcl 


TBBB 

BEE; 


oU 


LATIOB  (PBX,1,C»E)  ; 


III 
PBB  ■  ADDBl 
BGBB(I) ,*St 

END; 
END; 
Klfia 
BSEEC'«    BSEID    6    BBB; 

PBIBI   OOT    THE    OKICLiSS    COTEB   •/ 

POT    SKIP(3)     EIITi'THE    FOLLOBIBG' .BOB.  _    . 

•  CABTESIAB   COMPLEXES    FOBB    TEE   0BICLAS3   COTEB' )  (A.F  (4)  ,  A)  ; 
POT    EDIT     ('     FOB    CLASSES' ,  (CL122  (J)     DO    J-1    TO    BCLAZZ) ) 

(A.i#CLAZZ)F(4))  : 
POT    SKIP    EDITj'DEBSITT    OF    LEABBIBG    BTBBTS    IB', 
'    ETEBT    SPACE    IS ' , DIBITIAL, 

•  DEBSITY    TBBBSHOLD   IS'.Dlf       , 
JCOLjb)  ,A,A.£{1073,4r.A,Bn0,3,4))  ; 

POT    SKIP: 

CALL    PBCOTEB(O)  ; 

PBEPABB   TO    BBITE  COBBOB    CBABACTXBISTICS   */ 


^7 


STBT 

LEf 

NT 

533 

4 

1 

534 

4 

2 

535 

4 

2 

536 

4 

2 

537 

4 

3 

5  40 

4 

3 

541 

4 

4 

542 

4 

4 

5<43 

4 

4 

544 

4 

3 

545 

4 

4 

546 

4 

M 

547 

4 

3 

548 

4 

3 

549 

4 

2 

550 

4 

2 

551 

4 

2 

552 

4 

2 

553 

4 

2 

554 

4 

3 

555 

4 

3 

536 

4 

3 

557 

4 

2 

558 

4 

2 

559 

4 

3 

560 

4 

3 

561 

4 

4 

562 

4 

4 

563 

4 

3 

564 

4 

3 

565 
567 

4 

4 

4 

4 

568 

4 

4 

569 

4 

3 

570 

4 

2 

571 

4 

2 

3?3 

4 

1 

4 

2 

574 

4 

2 

575 

4 

3 

576 

4 

3 

577 

4 

2 
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578 


579 

5 

1 

580 

5 

1 

581 
562 

5 

1 

5 

2 

583 

5 

2 

584 

5 

2 

565 

5 

2 

586 

5 

1 

587 

5 

1 

588 

5 

1 

589 

5 

1 

590 

5 

1 

591 

5 

1 

592 

5 

1 

593 
594 


IF 


HQt>1  THEN  DC: 
§L8i  ■  HQj1).IIT: 
P8LNI  =    ACDB(BLHE) ; 
DO  I  =  1  TO  NT; 

STBT  ■  COJI) :   BOBC 

DO  K 


tBT  =  CO  (I)  :   BOBC  =  BC  fl)  ; 

i  K  =  2  TO  BQ«  BHILE(J-O); 
ELBE  =  ADDB(HQ(K).IBT) : 
IF  SOESTB  (PHLBE->CT,STBT,B 


0; 


SOBSTB <PLBB->CT,STRT, BOHC)  THEB  J*1; 
£BD; 


IF  J=6  THIN  DO  K*1  TO  HQ#: 
l<lf,&L 


SOBSTB(HQ(K) .IBT,BO 
END: 
ELSE  SOBSTB (BLBB.BO  (I) ,BL  (I) ) 

END 


(D) 


■  oiss; 

OBES; 


•CHABACTEBISTIdS'l  (A); 
JHC»*1) .IB?  -  BLBE; 


END: 
POT  SKIP  (3)  EDIT  ('THE  FOi 
•ABONG  THE  COBPLEXES') 


POT  silP(3>  EDIT ('THE  POLLOBIBG  SELZCTOBS  ABE  COHBOB  ', 

•CHABAdTEI"" 
HQJHt 
CALL  PBCOTEB  <HQ**1); 

BLBE  =  BOOL  (BQ(HQ»*1). 1ST, SPAREBASK,'1O00'B); 
IP  BLBE  THEN  DO: 

POT  SKIP  (3)  EDIT ('THE  FOLLOBIBS  COBPLEXES  HATE  COBBOB  ' , 

'CHABACTEBISTICS  BEHOVED')  (A); 
CALL  PBCOTEB  (-1) ; 
EBD; 

FOLLOBIBG  TABIABLES  DISTIBGOISH 
<*)  ; 
DO  I  =  1  TO  HQi; 
BLBE  -  'O'B; 
DO  J  -  1  TO  BOB; 

IF  J  «  I  THEB  BLBE  *  BLBE  J  HQ(J).IBT; 
EBD; 
BLBE  =  BLBE  £  HQ  (I) .III; 
DO  J  =  1  TO  BT; 

STBT  =*  BO  (J):   BOHC  =  BL  (J)  : 
IF  SOBSTB  BLBE,  STBT.  BOHCf  THS.B 

SOBSTB (HQ (I) .IBT, STBT, BOHC)  =  OBES; 
EBD; 
EBD: 
CALL  PBCOTEB (-1)  ; 
END; 
IF  *BATABS>0  THEB  DO: 

POT  SKIP(3)  EDIT('SABBIBG:   THE  POLLOBIBG  VARIABLES  ARE  BOT 

•APPLICABLE  TO  SOUS  RTBBTS*)   (A); 
DO  I  =  1  TO  BBAVARS; 

POT  EDIT(TABBAHB(SATABS(I)))   (COL  (20),  A); 
END; 
EBD; 

/•  PBOCEDOBE  TO  SELECT  BEIT  SEED  ETEBT  */ 

BEZTSEED:  PBOC  RETORHS  (FIXED  BIB  (31)); 

DCL  I  FIXED  BIB  (31) ; 

FB15  -  0; 

DO  I  *  1  TO  C*E  BHILE  (FB15  ■  0) ; 

IDX  ■  IDX  ♦  1: 

IF  IDX  >  C«E  THEB  IDX  »  1: 

FC1  =  SOBSTB (BSEEDP->CT,IDX,1) ; 

SOBSTBjHSEEDP->CT,IDX,1)  =  TRANSLATE (PC1 ,THDROP) ; 
IF  FB15  >  0  THEB  I  =  1+TBIDX  (FB15)  ♦  (  (IDX-1)  »BPC)  ; 
ELSE  SEEDS  ■  'O'B: 
IF  ONITBACE  THEN  IP  SEEDS  TBEB  POT  SKIP  EDIT 


f'NEXTSEED  IS • ,1)  (A, F  (4) ) ; 
ELSE  POT  SKIP  EDIT('NEITSEED  XS  OOT  OP  SEEDS') (A); 

BETOBB  I""' 
END  tilll 


BETOBB  (I)  : 

[TSEED; 


PBOCEDOBE  TO  SELECT  BEST  NEIGHBORHOOD  OSIBG  CRITERXOB  LIST  •/ 
CBITTAL:   PBOC  BETOBBS  (FIXED  BIN (31)); 

DCL  *B  /»  BOHBEB  OP  1BPEREBCES  */ 

FIXED  BIB(31)  , 
ATEB  /*  AVERAGE  BETEREBCE  TALOE  */ 

FLOAT, 
CCASE  /•  CASE  LABELS  •/ 

(7)  LABEL, 
CHAX  /•  BAXIHOH  CBITEBIA  TALOE  •/ 

FLOAT, 
CBIB  /♦  BINIHOa  CBITEBIA  TALOE  */ 

FLOAT, 
PC  /»  CBITEBIA  ETALOATIOB  TALOE  */ 

PLOAT, 
FIBST  /*  INDICATES  FIRST  RGB  ETALOATED  */ 

BIT(1)  ALIGNED, 
IKIN  /*  NGB  NOBBEB  BITH  LOBEST  TALOE  •/ 

PIXEE  BIN  (31)  , 
fl CI  /•  BAXIHOH  DISTANCE  TALOE  */ 

FLOAT 
PEB  /*  POINTEB  TO  EB  •/ 

POINTEB. 
PKLNE  /»  POIHTEB  TO  NLNE  */ 

POINTEB, 
PKLKE  /*  POINTER  TO  BLBB  */ 

POINTER, 
B  /»  REFERENCE  TALOES  */ 

(NCHAX*BPC)  FIXED  BINM5), 
SOBEFIT  /*  INDICATES  NOBBEB  OP  BGBS  TO  COBSIDEB*/ 

FIXED  BIN  (31)  , 


48 


STBT   LBB    IT 
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595 

596 

597 
599 
600 
601 

III 
601 
605 
606 


609 

in 

itt 

615 
616 
617 

618 
619 
620 

m 
\i\ 

628 

\\\ 

III 

\\\ 

US 
638 
639 
640 

641° 
642 
643 
644 
645 
646 
647 

648 

III 


III 

659 
660 
1 
2 
663 
664 

ill 

668 
669 
670 
671 
672 
673 
674 

675 
676 

677 

678 


II 


118 

681 
682 
683 
684 
685 
666 
687 


5      1 

5      1 


1      | 

i  i 

5      4 


I      I 


5  6 

5  6 

I  I 

5  6 

5  7 

I  l 

5  6 

5  5 

S  4 

5  4 

5  4 

5  4 

5  5 

1  I 

5  5 

5  4 

5  5 

5  6 

5  6 

5  6 

5  5 


0BO0BD   /•   OPPBB    BOOBD   01    C1ITBBA   fALOBS   «/ 
FLOAT, 

(C.I.J, E,l,B,B,0)    FIZBO   111(31) ; 

PW.il  -   ADCSf8I.II); 

IP    DOT   TBI!    POT   SKIP(2)    EDIT 

('SELBCTIIG    BBST    BSICBBOBBOOD')  (1)  ; 
SOdBPIT-2:      IBIB  -    1; 
BUB   -   BEPBESB: 
00   1-1   TO    BC8IT    BBZLE    (SOBEPIT>1) ; 

IP    00T   TBBB    POT   SKIP    BOIT (T10f    lPPLIIBS    CtIT    #*, 

PiSiriTim^'^" 

00    J-1    TO    B6B; 

IP   -BLIB(J)    TBBB    DO: 
PBLB1   -   ADDB(BlBBtj)) J 
60   TO   CCASE(CLIST|l      ; 


CCASI(11  :    PC   -    -B6BB (J) »*JB;      ' 
GO   TO    BB; 

CCASB(2)  :    fLBB-BOOMPBLBB^BT.SPABBBASI,'  1000'B)  ; 

C-0: 

DO   t   -    1    TO   Bf; 


IP     (0iSPBC(IaBSTBJpiltBB->Cf,O.  ■))  )    TB1B 

IP    (OBSPic  (SUBSTB(PBlBB->C?,0.ih)    Till   C-C*1; 

BBS; 
PC-C; 
60  TO   BB; 

CCAS1(3)  :    ILBlt-BOaMPMLBB^BTrSPABBBASK.'IOOO'B); 

POO.O; 

00   I   -    1    TO   B?; 

If"  (OlipBC  (SDBST8  |pBt>B->CT , 0, B) ) )    TBBB 

IP    (OBSPIC  (SOBSTB(FIXBB->CT, 0,1)))    TBBB   fC-fC*I (K 
BBC; 
60  TO   BB; 


CCASB(4)  : 

GO  TO   BB; 


PC  <f  1,010  /  JSBB(J)  ,D.BB; 


CCASB(5):    PBB   - 
L-1:      PC-O.O: 
DO   ft  -    1    TO  Cffl 

PC 
DO 


ADDB (BB  (J) ) ; 


1    ■    S0BSTij&BB->CT,B,1) ; 

BBILB    Ifbll   >   01  J 
B   -   TIIDX(PB1S*«L; 


PC«PC*U(BCI.ASS(B)  .1ITE(B)  )  ; 

PC1   »    TBABSLATZ(PC1,TB0Bbp); 

111); 
L  -  I   ♦  BPC; 
IBS; 
60  TO  BB; 


C-0. 
TO  B? 


POPOLATIOB (PHLBB.CO (I) , BC (K)  )  ; 

L  <  II.  (K)  TflEB  C-C*t; 


CCASE(6) 
DO  K  -  1 

L 

IP 

BID; 
POC: 
60  TO  Bfl; 


CCASE(7):  PC-O.O; 
DO  B  -  1  TO  Bf 


B  -  BCjB); 


0  -  CO(B)  . 
AfBB  -0.6:   •■ 
DO  B  •  0  TO  0*1-1. 

PC1  *  SOBSTB(PBLBB-> 
SO  BBIL|  (FB15  >  0) ; 


BCjtB] 

BLIE->C»,B,1) ; 


1-0; 


LB     (PB 
•B  -   ?B*1: 

B(iB)    ■    L*TBIDIJFB15); 


FEB  -    AVB8*B(«I) : 
:1    -   TBABSLATB(FC1, 
.JS; 

1   -  L*BFC; 


PCI 

I  HO; 


TBDBOP) ; 


IBD: 


DO    B   -    1    TO    *B: 

BDI    *    lBS(A»BB-B(B)) ; 


DO; 


BDI 
IBD: 
PC  -    PC 
BBC; 
BBC; 
GO   TO    BB; 


BB 
IF 

IP 


♦    (BDI   /   #B); 


TALOE   IS 


:    CBIT(J)    -    PC: 
OOT   TBEM    POT    EDIT ( • H6B', J. • 

(?iCUhHifi?lJo,;'A'i(10'3'<,f,; 
IHII«J; 

?HI«SWb?,I,(J,S 
BIG: 

ELSE    EC* 

IP   CBfH>CBIT(J)    TBBB    DO; 

CBIB-CBIT(J) ; 

IBIN-J; 

EBB: 
ELSE    IP    CBAKCBIT(J)     TBBB    CBAI-CBIT  (J)  ; 


.PC) 
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686 
669 
690 

69'. 

692 
693 
69<t 
69S 
696 
697 
698 

699 
700 
701 
702 
703 
7C4 
705 


706 
707 


3   S 

5   3 


708 
710 
711 
714 
715 
716 

717 

718 
719 
720 
721 
722 
723 
72« 
726 
727 
72B 
729 


EBB; 

END; 
BUD; 

0  BOUND^C  BIN* (TLIST  (I) • (CBAI-CBII)  )  ; 

IP  0DT  THE*  POT  SKIP  DATA  (CHIN,CBAX, OBOOBD) ; 

SOfllPIT-0; 

DO  J=1  TO  NGB; 

If  -BLIB(J)  THEN  00; 

IP  CBIT (J) >0BO0ND  THEM  DO; 
ELIB  (J)  »  *1'B: 
IP  UNITBACE  THEN  POT  EDIT ( • RGB • , J , *  ELIBINATED') 

(X(4),A,P(«),A); 
BIO: 
ELSE  SGHBFIT  ■  SOBEPIT  ♦  1; 
END; 
END: 
BID: 
BETOBN  (IBIN); 
BND  CBITVAL; 


/•  PBOCBDOfii  TO  GENERATE  A 
NGBBHD:  PBOC  (NGB»); 


BBICHBOBBOOO  •/ 


DCL  ADDED  /•  BOBBER  OP  BVBHTS  ADDED  LAST  */ 
PIXEE  BIN(31). 
CBHEV  /*  NEXT  EVEBT  TO  PBOCBSS  •/ 

FIXED  BIN  (31), 
D1CHK  /•  INDICATES  DENSITY  HOST  BE  CHECKED  */ 


BIT  (1) 
HOPELESS 


ALIGNED, 

/•  INDICATES  DENSITT  CANNOT  BE  BET  •/ 
BIT(1)  ALIGNED. 
LASTEV  /•  EVEBT  LAST  PROCESSED  */ 

FIXBB  BIN  (31) , 
LASTOPEATE  /*  NOHBKB  OP  LATEST  UPDATB  •/ 

PIZEC  BIN  (31)  , 
N  /•  HOBKING  STORAGE  POB  NGBB  ♦/ 

*iE  /»  BOBBER  EVEBTS  IN  EE  •/ 
PIXEE  BIH(31), 
"  ET1 


TENTS  IB  BB  •/ 

PIXEE  BII(3U, 
•LNE  /•  AREA  OP  COBPLBX  •/ 

FLOAT, 
IBEE  /•  BOBBEB  EVENTS  IB  BEB  */ 

FIXEC  BIN  (31)  , 
DEN  /•  DENSITY  OP  COBPLEX  */ 

PLOAT. 
NBABK  /*  BANK  OP  THE  COBPLEX  •/ 

PIXEE  BIB(31), 
SEED  /•  SEED  EVENT  FOB  THE  NEIGHBORHOOD  */ 

FIXED  BIB (31) . 
NGB*  /»  BOBBER  OP  BEIGHBOBBOOD  •/ 

PIXEE  BINJ31J. 
NGBOK  /*  INDICATES  THRESHOLDS  SATISFIED  */ 

BIT(1)  ALIGNED. 
OLDEV  A    EVENT  LAST  SOCCESSPOLLT  INCLODED  */ 

PIXEE  BIN(31), 
PLNE  /»  POIBTBH  TO  LNE  •/ 

POINTER, 
PSLNE  /•  POINTER  TO  HLNE  */ 

POX  H TE  B 
(EB1,PH2)'/»  POINTBHS  TO  81,  B2  •/ 

SNGL  /•  INDICATES  EVENTS  ADDED  ONE  AT  A  TIBE  •/ 

BITM)  ALIGNED, 
SCHEOK  /•  INDICATES  SOBE  EVENTS  HERE  ADDED  */ 

BITM)  ALIGNED 
OPDATESAVED 

PIXEE  BIN 
BIEE  /•  HOB*  VALUE  POB  *EE  */ 

PIXEE  BIN  131), 
WIEB  /*  HOBK  VALOE  POB  *EB  »/ 

FIXED  BINJ31). 
MILNE  /•  HOBK  VALUE  POB  tLBE  */ 

FLOAT, 
WINEE  /*  HOBK  VALOE  FOB  tBEB  */ 

PIXEE  BIN(31), 
BEEN  /*  SOBK  VALOE  POB  DEN  ♦/ 

FLOAT, 

(I.J,K,L)  FIXED  BIN(31); 

PH1  =  ADDB(W1):   PB2  ■  ADDB(82); 

PULNfc  =  ADEB  (NINE)  ; 

FB15  =  0; SNGL_=  'O'Bi   DTCHK  ■=  DT  >  0.0; 

/•  BUILD  BANK  CHAINS  •/ 


D  /*  UPDATE  BOHBEB  BITH  SAVED  DATA  */ 
ORK  VAL0E  FOB 


ADDB  <W1)  : 

PULNfc  =  ADEB  (NINE) 

"  -  '„ 
N.SEEC  =  BGBE  (KGB*)  .SEED; 
CALL  BANKChAIB (N.SBED) ; 
NGBEGIN: 

OPDATESAVED  =  -1; 
WtNEE  =  1: 
KNEE  =  'O'E; 
SUBSTB(BNEE,N.SEED,1)  = 
.SEED)  ; 


VB; 


WLNfc    =    EfN.SIl 
NGBOK    =    M  'B; 
LASTUPDATE,N.BBAHK    =    0; 
DO    1    =    1    TO    BANK    BHILE  (NGBOK)  : 
COBIV    =    BANKS  (I);       OLDEV    =    0; 
SOBIOK    =    'O'E: 

DO    WHILE     (KGBOK    C     (C0HEV>0) ) ; 
AIDED    =0: 
DC    BHILE  (CUBEV>0)  ; 
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739 


708 
719 
750 


77i 

7?; 


m 


8C8 
809 


m  i 


812 

813 
814 
815 
816 
817 
818 
819 
820 

m 


■IP   B1P0BJ   GIIEIALIZI 


LASTET   *    COBB?: 
ILIE    -    BLBE    I     fc  (COBBT)  ; 
S0BSIB(BHBI.COBBT,1)    -    M'B; 
ItlEI   -   BtNBE    ♦    1; 
ADDED   -   AEDED    ♦    1: 
COBB?   ■   IBAMKCICOBBT)  : 
IP    SBGL   TBJB   CO   TO  OIBOILT; 
BIO: 
OBBOBLI: 

IP     (II¥ABS»#S»AIS)     >    0    TBIB    DO: 
IP   DIBOG    TBBB    POT    SUP   IDIT(TBIT 

ciSi'tiBihEii.; 

IP  DEBDG  TBBB  POT  SKIP  EDIT  ('BIT  IIP  OP  BAIE'  .1  ,ILIE,IIBE) 

IP  Tfpi-^DC^  T&BI  ^0*  5Bi  *  1  TO  10*  IRILI (IGBOK)  ; 
81  -  ILB1  t  IQ(J) .IIT; 
BGBOK  «  T0'B; 

BO  I  •  1  TO  IT  IBILBi-IGBOK) ; 
IP  lAIBB(L)  -  '  ■  full 

IP  D»SPBC(S0BSTB(PB1->Cf,CO(L)  ,»C(L)  )  )  TBBB; 

ELSE  IGBOK-M'B; 

*  u  r  • 

(?VGBB    BOT    DISJOIBt""biTB    1ISPXCT    TO   COBPLBX    f'.J) 

BfLBI   -    0.0: 

II    I6BOI    I    (ST<BT)    TIB!   BO; 

IILIA   -    1.0:       |  ■    IT; 


IP   ■•■£!   >    \    TBIB    DO   J    «    1    TO    IT- 

L    ■    PQP0LATIOIJP|LII.Cp(J) .IC(J)) ; 

IP  L>0  Till  11111  -  6ii.li  *  t; 
IP    l-IL(J)    Till    K   -    1-1; 


I?_l>l?_1  l-'O'B; 


ELSE    DTCBK 
BIB 


IP    IGBOK   t    DTCBI 

IP   HiLBB   <    1.0   TBBI 


I   >   0. 

TBIB 


S3! 


HOPELESS'-     (*EVV    /    ■  •LIE)     <    pi: 
IP   DIBDG   TBI!    POT   SKIP    DATA  (ML 


IP_7    jKBOl    I    BOPELISS) 


ItLIi   ■    1.0: 

IP    IIIII    >    1    TBBIBO   J   -    1    TO   IT: 
L  -   PO»DXmOSjPfLII,CO(J).fC{JJ)  ; 
IP    L>0    TBI!    MLII   -    BtLtfX    •    L; 
110; 
BID; 
BGBOK   ■    (IIIII  /   BILIE)    >-    DT: 
-?B   /   HILII)     <   Bi, 
POT    SKIP    DATA(llLlI,  IGBOK,  BOPELISS,  SOUOK)  ; 
^    BOPBLBSS)     TBBI    BO; 
■«Ed   -    BtMEE:       BEB   -    BIKE: 
CALL    ICCT (I,COBEV,»«EB,BEB,iLIE) ; 
8IEE   -    0;      WEE  -    'O'B: 
IP    BABKS(0)>0    TBI!    CAU.    ICOf  (0,  BAIKS(O)  ,  MEE,  IEE,  ILIE)  J 
BDII   -     (8#EB«I«EB)    /    ItLIB; 
IGBOB  -    IDII    >-    DT; 
IP    IGBOK   TBI!    DO; 
IB(IGBI)    -    III; 
IBJIGBI)    -    IBB; 
V.fEB   -    B*EB; 
b.tll   -    MEI; 
I.CII   ■    8DEI; 

OPDATESATED   *    LASTOPOATB    ♦    1; 
III; 
IIC; 
BIB: 
IP    IGBOK   TBI!    BO; 
SOBEOK  -    M'B: 

LASTOFEATB   -   LASTOPOATB    ♦    1; 
MLIE(IGBl)    «    BLUB; 
BBEJBGBI)    -    llll; 
l.illl  -    BILBE; 
N.tllE  ■    IIIII; 
I.IBABB  -    I: 
OLBII    -    LASTBT; 
BIB: 
ELSE    IP     (-   OP1)    TBI!    BO: 

IP    (-    3IGL)    TBIB   IP   ADBBB>1    TBBI    BO; 

IPGoilTBACl"TBBBBpOT   SKIP   LIST('STAITII6    SIIGLI    BOB!'): 
COBEV   ■    BAIKS(I);    /*    STABT   OTBI    •/ 

BID; 

ELSl'lP    (-   OP2)    TBBI    DO; 

IP    CEBOG    THE!    POT    SKIP    EDIT ( • SKIPPIIG    OTIB    ETBIT', 

LASIET)     (A,P(«J): 
IP    COBEV-0    THE!    IGBOK   -    SOBEOK; 
ELSE    BGBOK   -    M'B: 

IP    OLDET    <~    0   TBI!    BAIKS(I)    *   COKIT; 
ELSE    EBJ  ••■ 
EBIIKCj 
BABKSl 

IP  BGBOK  TBBI  DO: 

IP  N.NBANK  <»  O.THEB  GO  TO 


IGBOK  -  M'B: 
D£V  <»  0  TBBI  BAIKS(I)  > 
EIAIKC (OLDET)  *  COBBT; 
C(LlSTiV)  ■  BAIKS(I*1); 
i(I*1)  ■  LASTBV; 


E8D; 
EBD; 
BID; 
END: 
IP  LA5T0PDATE  > 
B.tKBE,B.«EB 


ILIE  -  'ILIE(IGBI) ;    WNEE  ■  lEiHsGt*); 
WILBE  =  N.FlKE;  '      UtKEE  ■  N.IIEE; 


0  THE!  DO; 

•  i; 
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3 
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2 
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4 
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4 
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3 
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3 
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1 
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868 

6 

1 

869 

6 

1 

870 

6 

2 

671 

6 

2 

872 
675 

6 

3 

6 

3 

876 

6 

3 

877 

6 

3 

878 

6 

2 

879 

6 

2 

880 

6 

1 

881 

6 

1 

862 

6 

1 

883 

6 

2 
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6 

2 

865 

6 

1 

666 

6 

2 

e67 

6 

2 

668 

6 

3 

869 

6 

3 

890 

6 

4 

8S1 

6 

4 

892 

6 

4 

893 

6 

5 

894 

6 

5 

895 

6 

4 

896 

6 

4 

8S7 

6 

4 

898 

6 

4 

899 

6 

4 
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6 

3 

901 

6 

3 

902 

6 

2 

903 

6 

2 

904 

6 

1 

905 

6 

1 

906 

5 

1 

9C7 

6 

1 

•INE.N.DEN    ■    1.0; 
•E£,N. NBANK    =    0; 


E<NGB») ,NEE  (NGBlN'O'B; 

OBSTR  (NEE  (NGBf)  tll.SE£D,1)    «    M'B; 

B(NGB#)     =     N£E(NGB*): 


E 

EB  (NGB<)     =     NEE  (NGB#) 
NLNE(NGBf)     =    E(B.SEED); 


END. 
ELSE    tO; 

IF     (N.ILNEO.O)     i     (STOT)     THEN   DO: 

N-ILNE    =     1.0:  PLNE   =    ADDB(NLNE(NGB#)  )  ; 

If    N.IKEE    >    1    TUEi    DO   J    *    1    TO    BT; 
L    =     POFOLATION  (PLNE.CO  (.7)  ,NC(J))  ; 
IF    L>0    THEN    B.iLNE   -    N.ILNE    •    L; 
IF    L=NL(J)     THEN    K    •*    1-1; 
END: 
If    K>SI    THEB    CALL    DBOPSEL     (PLNE,K-ST) ; 
END: 
IF    LA5TDPDATE    •*=    0PDAT1SAVED   THEB    DO: 
B.*EB    =    N.BHEE;       EB  (NGB«)    -    »BE(BGB»); 
N.*£E   =    0;       EElNGBt)    «    'O'B; 
IF    N.tNEE    >    1    THEB    DO: 

IF    OLDEV>0   THEB    OLDEV    =    ERAHKC  (OLDET); 
CALL    ECOVjN. NBANK, OLDEV, N.IBB.EB (HGB1J , 


B¥; 


BLBE(BGBt)); 


IF    BANKS  (0)>0    THEB    CALL    ECO? (6 , u \BK S (0)  , B. #EE,EE  (NG B« )  , 

NLEE  (NGBI)) ; 
END; 
N.DEN  =  (N.#£B»N.#£E)/B.#LBE; 
EBD; 
END: 
NGBB(SGB»)  s  B; 

IP  DEE0G  TBEN  POT  SKIP  DATA (BGBB (BGBt) , BLBE (BGB») , 
BEE (NGBt) , EB (NGB*) ,EE(BGB#) ) ; 

PBOCEDOBE  TO  CBAIB  EVENTS  BT  RANK  •/ 

BANKCBAIN:  PBOC  (SEED) ; 


DCL  f?£BT  /•  EVEBT  N09BEB  */ 
FIXED  BIB  (31), 

'  THE  SEED  EVEBT  BOHBBB  •/ 
BIB  (IT)  , 


SEED 


/*  THE 
FIXED  " 


(I,J,L,B)  FIXED  BIB  (31)  ; 

PB15  ■  0: 

IP  *HAVABS>0  THEB  DO; 

HLN£  =  E  (SEED)  ; 

DO  1=1  TO  tNAVABS; 


B  =  NAV8BS  (I)  : 

IF  SUESTB(ULNK,J,L)  THEN: 


BL(B); 


J  =  BO  (B)  ;   L 
i  ,  J , L)    THEN ; 
ELSE  S0BSTB(BLNE,J,L)  "  ONES; 
END; 
HLNE  =  -  BLNE; 
EN£: 
ELSE  BLBE  =  -  I  (SEED) ; 
L  =  1; 

DO  I  =  1  TO  BANK+1; 
BANKS(I)  =  0; 
£  H  E  ' 
DO  I  =  1  TO  CIE: 

FC1  =  SUBSTB <BERP->CV,I,1) ; 
DO  BHILE  (FB1S  >  0); 

EVENT  =  L+TBIDX  (FB15)  ; 
IF  EVENT  ->=  SEED  THBH  DO; 
82  =  BLN£  6  E  (EVEBT)  ; 
B  =  0; 
DO  J  =  1  TO  CLEB  BHILE  (H<=»BANK) : 

IF  SUBSTB  (PB2->CV, J, 1)  —  LOB(1)  THEB  B=B*1; 
END: 
IP  UNITBACE  THEB  POT  SKIP  EDIT (' EVENT' , EVENT, 

•IS  OP  HANK'.B)  (A,F(4),X(1),i,P(4)); 
IF  B  <  1  THBB  1=1: 
EBABKC (EVENT)  =  BANKS (B) ; 
BANKS  (B)  =  EVENT; 
END; 
FC1  =  TBABSLATE(FC1,THDH0P) ; 
END; 
L  *  L  ♦  BPC; 
END: 
IP  DEBUG  THEN  PDT  SKIP  DATA (BANKS, EBABKC) ; 
END  BANKCBAIN; 

/*  PBOCEDOBE  TO  FINE  COVEBED  EVENTS  */ 

ECOV:  PBOC  (SBABK,  SEVNT,  COUNT,  HAP,  LNE) ; 


DCL  COONT  /*_CCBBENT  POPULATION  COOBT  */ 

INK  /« 
FIXED  BIN  (31 


FIXED  BIN  (31)  , 
LINK  /«  LINK  TO  NEXT  EVEBT  ON  BABK  CHAIB 


LNfc  /*  BIT  REPRESENTATION  OF  COHPLEX  */ 

BIT  (*)  ALIGNED, 
BAP  /*  BIT  BAP  OF  EVENTS  COVEBED  */ 

BIT  (*)  ALIGNED, 


FLANK  /*  STOPPING  BANK  VALUE  »/ 

FIXED  BIN(31), 
StVKT  /*  STABTING  EVENT  NOBBEB  */ 

FIXED  DIN(31), 
SEANK  /*  STABTING  RANK  VALUE  •/ 


:;k  /* 

FIXED  I 


BIN  (31) , 
I  FIXED  BIN(31) ; 
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ZQ70II  -  TBBSIOB  2 


908 
909 


91<t 

3]5 
916 
917 
919 

921 
922 
923 

924 


928 
929 


seo 

9£1 


927 


5  1 

6  1 


t  3 

I  3 

t  3 

6  3 

6  2 

8  5 


1 


5  1 

6  1 


■1  -  -•  LNE; 

IP  SBAIK>0  THE!  PBEBE  *  BAII*1; 
ELSE  PBABK  -  0; 
LIBE  ■  SBTBT; 
DO  I  -  SBABE  TO  PBAIK; 
00  SHILZ  (LIIZ  >  0)  : 

IP  DBITBZCE  TBBB  POT  EDIT  (  'ZTZIT* • , LIII)  (X  (2)  . A, P  <«)  ) ; 
K2  -  B1  t  ZJLIBB): 

IP  B2  TUB  IP  OiItBACE  THEI  POT  EDIT  ('  IOT  COTEBED*)  (A) 
USE:  ELSE  DO: 

COO  IT  ■  CO0IT*1; 
S0BSTBiBEP.i.iBE,1)  •  'VB: 

IP  OBITBACE  TBBB  POT  EDIT}'  IS  COTEBED')  (E)  ; 
ZBD; 
UHE  -  EBEBEC(LIBK)  ; 

IP  KPBEBE  TBEH  LIU  -  BABES  (1*1); 
EBI: 
BBS  SCOT; 

/*  PBOCEDOBB  TO  GBIIBALIZI  SBLBCTOBS  •/ 

GSIZIALIZI:  PBOC; 

DCL  PB 


IB  /•  BOBBEB  OF 
PIIZD  BIB (31 


PBLB 


POIBTEB, 


PISH  /•  LEST  CHAB  BOBBBB  */ 
PIXED  BIB  (31)  , 

I  BITS  */ 

POIITBB  TO  ILBE  •/ 

STBT  /•  STABTIIC  CBAB  BOBBBB  •/ 
PIIID  BIB  (31), 

a, J. 1.1)     PIEBD  BIB  (31)  ; 

PBL|Z_-oEDDB(BlBl); 


DO  I  -  1  TO  fITEBS; 
»  -  IBTfEBS(I).; 
L  -  BO(t)  ; 
STBT  -  CO(T):   PISH 
DO  J  -  STBT  to  PBSB 


STBT»IC(¥)  -1; 

PC  1- "I OBSTB  (Ml BB->CT .  J  ,  1 )  ; 

IP   PC1    —   LOB(1)    TBEI   60  TO   PSTBIT; 


1   -   L    ♦    BPC; 
ZBD; 
CO  TO   BOI;      /•    BO    BITS    01.    SEIP   TO   BBZT  •/ 


PSTBIT:    PP.   -    L*T8IDX  (PB15I  : 
t   «     ((»C(T)-1)    *    BPC)    ♦    b6]T): 
IP   J    <    PBSB    THEI    DO    J    -    PISH    TO 


SOBSTB (PBLBE->C¥ . J , 1) ; 

THZB   GO   TO   LSTBIT; 


PCI 

IP    PC1    —    L0fl(1) 

I  -   I   -   BPC; 

ZBD: 
LSTBIT:    DO    WHILE    (PB15>0) ; 
KB   -    PE  15: 
PCI    -    TBAfcSLZTE(PC1,TBDB0P) ; 

ZBD: 

BB    -     (L*TEICX  (IB)  )-PB»1 
IP    IB    >    2    TBEI    SOB 
BOI:    BBC; 


STBT   BI  -1; 


STB  (BLBB,  PB,BB)     -    OBBS; 


DO   I   >    110    BSTEBS; 

T    -    STB  DC  TABS  (I)  ; 

L.BB  -    0; 

SBBOBE    -    OBIS: 

SI    -    DOBEATA  (DOHI  (¥) )  .STBOCIDX: 

SIBT    -    CO(V):       PBSH    «    STBT*IC(¥)-1; 

DO   J    -    STBT   TO   PBSB; 

ZC1    *    S0BST£iPHLIZ->C»,J,1) ; 

CO   BHILZ    (PB1S>0) ; 

SBHOBK   -    SBBOBK    C    SBITS (SI*L*TBI DX  (PB1 5)  )  ; 
NB    -    HB  +  1; 

.     PC1    «    TBEBSLETE(PC1,TBDE0P); 
ZBD; 

I    »    L    ♦    BPC; 

EBB: 
IP    BB>1    TBEB    DO: 

J    ■    IBDIX  (SBBOBK.  '  1'B)  ; 

IP    J*0    TH  BSTBlBLMitBO_(T)  , IL{¥)  )»OBSS 


ir     »*— ■  u     mis     JUDJiBiiitPbf  ouii 
ILSE    SOBSTB  (MLBE,BO(V)  ,BL(¥) 
ZBD; 
EBI: 
END    GZIEBELIZZ; 


*  SBit3(SI*i-1*BL(¥)); 


/*  PBOCEDOBZ  TO  ELI  BIB  ATE  LESS  DESIBABLE  SBLBCTOBS  */ 
DBOPSZL:  PBCC  (PL8E,C); 

DCL  COONT  /•  BOBBEB  OP  BITS  POB  EACH  VAEIABLB  */ 

<BV)  PLOZT. 
IBOPVAE  /•  VlBIABLE  BOBBEB  TO  DBOP  •/ 

PIXIE  BIB(31) , 
HZXFBZCIIOB  /*  BEX  PBACTIOI  OP  OBE  BITS  •/ 

PLOET, 
ELBE  /•  POIBTEB  TO  L8E  •/ 

POIBTZB. 
PH2  /*  POIBTEB  TO  B2  •/ 

POIBTZB, 
SZCOBDTBI  /•  IBDICETES  SECOBD  ETTEBPT  •/ 
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S1BT  LBV  IT 
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962 

6 

1 

963 

6 

2 

S64 

6 

2 

985 

6 

2 

9  66 

6 

2 

987 

6 

1 

988 

6 

1 

989 

6 

2 

990 

6 

2 

991 

6 

3 

993 

6 

3 

994 

6 

4 

995 

6 

5 

996 

6 

5 

997 

6 

5 

998 

6 

4 

999 

6 

3 

]M 

6 
6 

4 

4 

1002 

6 

4 

1003 

6 

5 

1005 
1006 

6 

5 

6 

6 

1007 

6 

6 

1008 

6 

6 

1009 

6 

7 

1010 

6 

7 

1011 

6 

7 

1012 

6 

6 

1013 

6 

5 

1014 

6 

6 

1015 

6 

6 

1016 

6 

6 

1017 

6 

5 

1018 

6 

4 

1019 

6 

5 

1020 

6 

5 

1021 

6 

5 

1022 
1023 

6 

4 

6 

3 

1024 

6 

2 

1025 

6 

1 

1026 

6 

1 

1027 

5 

1 

1028 

4 

1 

1029 

5 

1 

1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 


1038 

1039 

1040 
1041 

1042 
1043 
1044 
1045 


1046 
1047 


5  1 

6  1 


BIT(1)  ALIGNED, 
<D,I,J,K,L)  FIXED  BIN  (31)  ; 


THEI 
IN  DO; 


DO  I  *  1  TO  IT; 

L  =  POPULATION  (PLBE, CO (I) ,IC(I1)  i 

IP  (L<2)  I  (L»NL(I)f  THEN  COOIT(I)  *  0; 

ELSE  COONT(I)  ■  FLOAT (L)  /  FLOAT (ML  (I) J ; 

END  * 
IF  DEBOG  THEN  POT  SKIP  DATA (D,COOIT) ; 

DO  SECONDTBY  =  "O'B,  M'B; 
DBOPVAB  »  1: 

DO  BHILE  ( (D>0)  6  (DBOPVAB>0>) ; 
BAIFBACTION  ■  0.0;   DBOPVAB  ■  0; 
CO  I  *  1  TO  HV; 

IF  SECONDTBI  I  (VABTIPE (I) »• F«) 
IF  HAXFfi ACTION  <  COO  NT (I)  THEI 
HAXFBACTIOH  =  COOBT(I); 
DBOPVAB  *  I; 
EBE; 
END: 
IF  DBOPVAB  >  0  THEN  DO; 

IF  TIP2=")C'  THEN  B1  ■  PLIB->BV: 

SOBSTB (PLIB->BV,BO (DBOPVAB) , HL(DBOPVAR) )  -ONES; 

IF  TIPE=,DC»  TBBH  DO; 

L  ■  1j   PB2  ■  ADDBJH2) : 
DO  J-  1  TO  BQ#  BHILB(L=1); 
L  »  0: 

B2  =  PLHB->BV  6  BO  (J) .III; 

CO  I  =  1  10  IV  SHlLE (L-0) ; 

IF  NAXBD(K)  =  •  '  THBH 

IF  ONSPBC  (SOBSTB (Pf2->CV, CO (K) ,NC(K)  ))  THEN; 
ELSE  1=1; 
END; 
END: 
IF  L=0  THEN  DO: 

SOBSTB (PLNB->BV,1,BLfil)  -  B1; 
COONT (DBOPVAB)  -  0.0; 
END; 
END; 
IF  CGONTJDROPVAB)  >  0  THEB  PO; 
D  ■  D-1; 
IF  0NIT8ACE  THEN  POT  EDIT  ('VARIABLE*  , DBOPVAB, 

•  DBOPPED')  (A,F(4)) ; 
END; 
END; 
END; 
XHX: 
IF  DEBOG  TBEN  POT  SKIP  EDIT ('BIT  HAP  AFTBB  DBOPSEL • , PLNE->BV) 

(A.X(5)  ,B(BLBB)); 
END  EBOPSil; 
END  NGBBHD; 

/•  PB0C2D0BE  TO  LIST  EVENTS  COVEBBD  BX  NEIGHBORHOOD  •/ 

NGBHEPOBT:  PBOC; 

DCL  PIE  /*  PCINTEB  TO  BE  */ 
POINTEB, 
PEB  /»  PCINTEB  TO  EB  */ 
POINTEB, 

I  FIXED  BIN  (31)  ; 

FB15  =  0; 
POT  SKIP; 
DO   I    >    1    TO    NGB; 

POT    SKIP    ECIT(,NGBB,,I.'     'I    (B,F(31 1  J 
IF    BEFBESH(I)     THEN    POT    EDIT  ('iS    IDLE')      (A); 
ELSE    DO 
IF 
POT 


rEHTS    COVERED    II   EB:*) 


I-BGL   THEN   POT    EDITf*     (COHPLBX*  .  (BQ«-»1),  '  )•)  (AfF(3) )  ; 
T    EDIT  (•BANK    =• . NGBB jl) .NBANK, 'ABEA    «■ .NGBBjI) . §LNE, 
•DENSITI    =',NGBfi(I) .DEN)      (COL (25) , A, F  (3) , X  (5)  , A, 
"    10,3,4)  ,l'(5), A,E(10,3, 4)')  : 
SKIP    EblT(BGBB(I).SBB,a    BVI 
OL(10)  ,F(J).A); 
=    AEDB(EB(I>)  ; 
POTEVTS  (PBBl: 
POT    SKIP    EDIT(IGBB(J 

P*iC2l.2&tfi  ifftJ 

IF    NGBB(I)  .  IEE    >    0    1 


DITjlGBB(I) ,«£E,'    EVENTS    COVEBED    II   EE:<) 


END; 

END; 


THEN  CALL  POTEVTS (PEE) ; 


/•  PBOCEDOBE  TO  BBITE  AN  EVENT  LIST  */ 
POTEVTS:  PBOC  (PE) ; 

DCL  C  /*  TYPE  0?  ENTBI  (E-EVEIT,S-SE£D) 

CHAB(1)  ALIGNED, 
EV  /«  EVENT  NOHBEB  */ 

FIXED  BIN  (31) , 
BO  /*  COLUMN  NOHBEB  FOB  FOBHAT  */ 


*/ 


FIXEC  BIN(31) , 
PE  /*  POIIiTEB  TO 

POINTEB, 

tEVr- 

FI 
SEED 


EVENT  BIT  HAP  */ 


PEEVCLASS  /*  CLASS  OF  PBEVIOOS  EVENT  */ 
FIXED  BIN  (" 
ED  /*  SEEI  _ 
FIXED  BIN  (31)  , 


FIXED  BIN(31>, 

SEED  EVENT  NOBBEB 


V 


5* 


StBT  LIT  IT 
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1048 


10|S 


1072 


1075 
1076 
1077 

1081 
1062 
1063 
1060 


1087 
1088 
1090 
1091 
1093 

ioTs 

1096 
1097 
1098 
1099 
1100 
1101 
1102 

mi 

1105 
1106 
1107 
1108 
1109 
1110 
1111 

ijjj 
nt) 

18 

19 

1120 


1] 


(J,L)  PIIIO  BIM(31)  : 

■0  -  0;  L  -  1; 

SI  10  -  IGBB  (Il-SIID; 

PIITCLASS  ■  -1: 

00  J  ■  1  TO  CM: 

FC1  ■  SOBSTB (tE->Cf,J,1) ; 

DO  !HILI  (PB15  >  0) : 
IT  »  I  ♦  TBIDI  (PBlS) : 
IF  ECLASS(ET)  —  PEITC1 


5[I») 
PBITCLiSS  - 
■0  «  HO  ♦  1 


CLASS  TBI I  DO; 

ECLASS(IT) ; 


IF  BO  >  20  faiB  BO  -  1: 

POT  ICIT  I'C'.IOJ  (PBITCLAS3.0) )   (COL  (32* ( 


BID. 

10  ■  to  ♦  1; 

IF  BO  >  20  TUB  BO  -  1: 

IF  IT  ■  Slip  Till  C  •  •§'; 


IO*«)) ,A,A); 


<COL(32*(IO»«)),A,A); 


IBS; 
L  -  I.  ♦  BPC; 
IBD: 
IBD  FOTITTS: 
IID  ICBBIPOBl; 

PBOCIOOBI   TO    PBIBT   COSPLIIIS   •/ 

PBCOTIB:    PBOC    (PABB) ; 


OCX.    BT   /•    BIG1IIIIG    IITIITAL    TALOB    •/ 
FIIID    BIB(3* 
_HC    II 

PillD    BIBJ31) 


[IBD    BIB(31) , 
IT_/»   IBOIBC.IBTIBTAX   TALOI  •/ 


PI] 
LIBI   „ 
CBAI 


m> 


SB    /•    1IDIIG    CIAI    POSZTIOB   IB    LIB    •/ 

$ 


IBD    BIB  (IS). 

/•  OOTPOT  LI IE  IIA6B  •/ 
ABJ200)  TAB  ALIGIID, 
*  LEBCTU  OF  OOTPOT  LllI  */ 


BOPOT  /*  TBOI  IBILB  10  OOTPOT  PBODOCID  •/ 

BITp)  ALICBIO, 
PABB  /*  IIDICATI5  COBPLIXIS  TO  PBIIT  •/ 

FIIID  BII(31), 
PBC  /*  LAST  BO  tO  PBIIT  •/ 

IlXID  BIB(lS). 
PBLBI  /•  POIBTBl  TO  BLII  •/ 

POUT  IB, 
SI  /•  SIBOCTOBIS  IIDIX  */ 

FIIID  BII(31), 
SBC  /•  StABTIBG  BQ  BOIBBI 

FIIID  BIB(15) 
STBT  /•  FIB.' 


[ID  BUMS), 
/•  FIBST  CB 
FIIBD  BIB  (15) , 


BQ  BOIBBI  V 

AB  POSITIOB  IB  LII  */ 


(I,J,K.L,P)  FIIID  BIB(31)  ; 

FB1S.SI.II   -    0; 
IF    PABB>0    f~ 
ILSE    CO:    SB 


IF    PABB^O    TBII    SBQ.PBQ  -    PABB; 

ELSE    CO:    SHQ«1:     PBQ-BQI;    " 
DO    I    «    S8Q    TO    PB' 


IBD; 

EDIT  ( •COHPLII'  ,1)  (A,F  («)  )  ; 


I    -    SBQ    10    PHQ: 
NLIE   -    IDCB(BQU)  .IIT)  : 
F    PABBOO   TBBB    POT    SKIP 
~    PABB-0   TBIB    DO; 

POT    £DIT(T    OF    BAlK  *.HQ(I)  .'(Bill     '    COTIBS* 
K.'    IT1ITS    (T.IQ(i).flI,*    Bill    IITB    OBI 
_    (i,F(3),A,F!5f,X,F(3),A,I(l3,3,l)); 
IDS 


DIBSITI   OF', BQ (I)  .DIB) 


•1'lj 


Lilt   -    '     ':       BOPOT 
DO    J  ■    1    TO   BT; 

SIBT  «   CO(J):      FBSB  ■   STIT*BC(J) -1 ; 
P  P    POP0LATl6B(PBLBI.STBT,BC(i)j ; 
IF    P   —    IL(J)    TUB    DO; 
LII£   -   LIBI    I 
IF   P   ■   0    THBI 
ELSE    DO; 
L   -    0- 
IF    OOBAIBS    >    0   TBIB    BI-DOBDATA (DOB* (J) )  .BABISIDX; 


TBII    DO: 

II     •  («    ||    TABBAII(J)     ||    •-•; 
II    LIBI  -    LIBI    ||     'l.A.)     •; 


IF    TABTIPB(J)»'F»    TBII    DO; 

CO    K    =•    STBT    TO    FISB 


FC1    ■    SDBSTB(PBLB1->CT,K,1) ; 
'    BBILB    (FB15   >    0)  : 
LIIB-LIBE    II     BOBITBIDI  (PB15) »L,BI)     ||     ',', 
FC1    *    TBABSLATI(FC1,TBDBOP) ; 


BID; 
I   -    L*BPC; 
IBD: 
SUBSTB (LIIE,LIIGTH (LIB!) , 1) 
LIIE   «    LIBI    II    •    '; 
EIC: 

ELSE   IF    TAITrPIiJi-•I,    THII    DO; 
DO    K    «    STBT    f<3    FISB: 


FC1    -    SUBSTB (P8LBI->CT. 1,1); 
"1(1)     TBII   CO   TO 

END; 


IF    FC1    -^   LOll(1)     TBI! 
L  -    L*BPC; 


6ITBIC; 


GETBEG:    BT    -    L«TBIDX  (PB1S) ; 

l-(BC(J)-1)»BPC; 

IF  K  <  FBSB  TBIB  DO  E  -  FISI  TO  STBT  BT  -1; 
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1121 

1122 
1123 
1 12*» 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1110 
1141 
1142 
11*3 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 

\m 
\\n 

1156 

1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 

1166 

1167 
1168 
1169 

1170 
1171 


1172 
1173 


1174 
1176 
1177 
1178 
1179 
1180 
1161 


1182 
1183 


3  0 

4  0 


1184 

4 

0 

ilea 

4 

0 

1169 

4 

1 

1190 

4 

1 

1191 

4 

2 

1192 
1193 

4 

2 

4 

2 

1194 

4 

2 

1197 

4 

2 

1198 

4 

3 

11S9 

4 

3 

1200 

4 

4 

12C1 

4 

4 

I  I  MOH(EV,BI)  ; 


FC1  *  SUBSTB(PWLNB->CV,K,1i  ; 

IP  PCI  —  LOH(1)  THEN  GO  TO  GETBHD; 

L  *  L-BPC; 

END: 
GETEND:  DO  WHILE  (PB15  >  0); 

EV  «  PB15; 

FC1  *  TRANSLATE (PCI, TRDBOP) ; 

END; 
EV  *  L*TBIDI(EVI ; 
LINE  ^  LINE  [I  NOh(BV.NI) : 
IF  EV  >  BV  THEN  LIME  ■  LINE  II 
LINE  *  LIME  M  •)  •  ; 

ELSE  If  VABTTPE(J)*'S'  THEN  DO; 
SBUOBK  ■  ONES: 

SI  ■  DOHDATA(DOB#(J)) .STBOCIDI; 
BV  =  0; 
DO  K  <  STHT  TO  PBSH: 

FC1  =  SUBSTR(PNLNE->CV,K,1) ; 
CO  WHILE  JFB15  >  0) ; 
EV  ■  TBIDI(FB15)  ♦  L; 
BV  *  BV  ♦  1; 

SBBOBE  »  SBBOBK  t    SBITS (SI* FV) | 
FC1  ■  TRANSLATE (PC1,TBDROP)  ; 
BID: 
L  -   L*BPC; 
END; 
IF  BV  >  1  THEN  DO: 

EV    ■    IBDEX  (SBBOBK,' 1'B): 

IF    EV=0    THEN   LIBE   *    LINE    II    • EBBOB. ..•; 
EV    ■    EV-1*BL(J) ; 
END; 
LIBE   i    LXIE    ||    HOH(BV,BI)     if     ')     •; 
END: 
ELSE    POT    SKIP    LIST('PBCOVEB    BSCEITES    ILLEGAL   CODS'); 
END; 
IF   LeIgtB(LIBE)    >    120   THEM  DO; 
PUT    SKIP    EDIT  (LIBE)  (A  (LL) )  ; 
NOEtJT  =    'O'B: 
LINE   ■    SOBSTB (LIBE, LL) ; 
EMC; 
LL  ■    LENGTH (LIME) ; 
END; 
END; 
IF    LENGTH (LIME)    >    1  .THEM    POT   SKIP   EDIIJLIEEi  (A) ; 
ELSE    IF    hCFCT    THEN    IF    PABB=S    THEN    POT   SKIP    EDIT 
NIT    COHPLEX    ) ') 


('     (    ONIT   COBPLEX    ) •)     (A); 
ELSE    POT    SKIP    EDITC     (   NOME   )•) 
POT   SKIP; 

END; 
END    PBCOVEB; 


(M; 


BLKC    EKC:    EBD    BLKC; 
NEXT.COVEB:    ill   CBEOBI; 

/•    PBOCEDOBE   TO   DXTEBBIME   BIT   POPOLATIOB   COOMT   •/ 

POPOLATION:    PBOC     (P, START, L>     BETOBMS    (FIXED    BIN  (31)); 
DCL    L   /*    N08BEB    OF    CHAfiS    IN    STBIBG    TO    BIT-COOBT   */ 
FIXED    BIN  (15)  . 
P   /*    POINTS   TO    STRING    NHOSE    BITS   ABE  COOBTED   */ 

POINTEB 


POP  /*  POPULATION  COOBT  •/ 

FIXED  BIH131), 
STABT  /*  CHAHACTEB  OFFSET  AT  BHICH  COOBT  STABTS*/ 


FIXED  BIH(31 
CABT  /*  CBAHA  .  . 
FIXED  BIN  (15) , 

I  FIXED  BIN  (31) ; 


POP  =  0:   FB15  -  0; 

DO  I  »  STABT  TO  STABT*L-1; 

FC1  =  SOBSTB  (F->CV,I,1)  ; 

POP  =  POP  ♦  TRPOP(PBl5); 

END: 
BETOBN  (POP): 
END  POPOLATION; 

PBOCEDOBE  TO  BEAD  VECTOB  EVENT  DATA  •/ 

BEADVEC:  EBOC; 

DCL  IE  /»  EVENT  BOBBEB  •/ 
FIXED  BIN(31)( 
PE  /*  POINTEB  TO  ELEBENT  OF  E  */ 

POINTER. 
VN  /*  VARIABLE  NOHBEB  OB  OOTPOT  LINE  */ 
FIXED  BIN  (31) , 

(I,J,K)  FIXED  BIN(31) ; 

IE  =  0;   NAVARS  =  0;   tBAVABS  =  0;   NAIND=*  •; 
DO  K=0  TC  HAXCL: 

PO^SKIP^    fctlT  ('CLASS    F(',OLIST(K)  .')  ')  (A,P(2)  ,  A) 

IF    PNTE    THEK    POT    SKIP    EDIT('EVEHT    NO. ',1,'=') 

(CCLM8),A,F(3).A)  ; 
IE   ■   IE    ♦    Is 
PE    =    ADDR  (E  (IE)  )  ; 

EEVN(IE)     =    I;       ECLASS(IE)    *    OLIST  ( K)  ;       VB  =    0; 
DO    J   =    1    TO    NV; 
GET    LIST (VAL) : 
IP    PNTE    THEN    DO; 
VN    =     VN*1: 
IF    VN>27    THEN    VN=1; 
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STBT 

LBV 

NT 

]ffi 

4 
4 

1204 

1205 

4 

4 

m 

4 

4 

11U 

4 
4 
4 

1211 

4 

1 

4 
4 
4 

! 

1215 

4 

0 

1216 

4 

1 

1217 
1218 

4 
4 

\ 

1219 
1220 

4 
4 

\ 

1221 

4 

0 

1222 

3 

0 

1223 

4 

0 
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1224 

mi 

1229 


12 

12 

3i 

ii 

I] 

35 

I6 

)l 

37 
38 

12 

39 
40 
41 

1242 
1*3 

244 


1245 
1246 


33«3    3 
1244    3 


2  0 

3  0 


1247    3 
1248 

0 

0 

1249   : 

1 

1251   : 

1 

\m  \ 

\ 

I 

0 

mi  i 

|  3 

1260    1 

0 

1261    1 

0 

1262 

1 

1263 

1 

1264 
1265    1 

0 

0 

138    : 

8 

IF  TAL>«0  THBB  POT  EDIT  (TIL)  (COL  I  35*  (T»»3| )  ,t  (3) ) 
1LSB  POT  MITC  »A«)  (C0i(35V(f>«j)),i); 


IF  TAL  >»  ML  (J)  IBIM  DO; 
TAL  «  BL(Ji-l: 
POT  SKIP  LIST('***  TABIABLE',J. 


♦iBCOBBBCTLI  SPBCIPIXD') ; 
PIOSB  -  M'B; 

IF  Til  >-  0  TBBB  SDBSTB(PB->BT,BO(J)  *HL,  1)-M'B; 
BL3X  BAIBD(J)  «•♦•;' 
BBC; 
BBC; 
BBD; 
DO  K  -  1  TO  BT; 

IF  BAIBD(K)  -  •♦•  THBB  DO; 
•BATAB4  -  flATABS  ♦  1; 


BATABS(BBAT ABS) 
BBO; 
BBD: 
BID  BBADTBC; 


K; 


/«  PBOCBDOBB  TO  BIAC  GABBA  BTBBT  DATA  •/ 
BEADS  la:  PBOC; 


DCL  BTAL  /• 
PIIBD 
IB  /•  BTBBT 

fix.:: 

6AB  /•  GABB 
IIB 


DICODED  TABIABLB  TALOB  •/ 
BI>  (31). 
BIT  BOBlBB 


IB 


•/ 

__OB   •/ 
FIIED    §11(31). 
PB   /•    POUT  IB    TO    BLBBBBT   OF    B   •/ 

POIITIB, 

(I,J,B)  FIZBD  BII(31) ; 
0; 


DO  K»0  TO  BAICl: 

POT    SKIP  (2)     ICIT  ('CLASS    P('. OUST  (K)  ,')  ')<A,P  (2)  ,A|  ; 


_,2)     BOIT 


GIT 
IF 


BJTI  (IB)    -    1 :         BC 


GAB) 


BCLASS(II)    -   OLIST(K); 


8TAL-SOD(GAB,«L(J) ) ; 
CAB-GAB/Bl(jf ; 
SOBSTB(PI->BT, 
BBD; 
BBD; 
BBO: 
BBD   BIADCAB; 


BO  (J)  ♦BTAL,  1)    ■    M'B; 


BLEB    BBD:    IP   ALLOCATIOB (B)    TBBB    FBBJ 
IF   AILOCATIOB(Z)    TBBI    PBBB  X; 
BBO   BUB; 


/*    PBOCXDOBB   TO   B Bill    I    BOBBBB   OB   ASSZGBXfi    SIHBOL   •/ 


BOB 

DCL  :  / 


PBOC  (T.BI)  BBTOBBS  (CBAB130)  TAB  ALXGBBD) ; 
*  BOBBBB  COBSTBOCTIOB  ABBA  */ 


HAJ(8)  ALIGBBD, 
D  /*  C1CXHAL  BOBB  TALOB  •/ 

FIXED  DBC(5' 
BI  /•  BABB' 

FIXBD  BI 


!C(5). 
tS  I|DBI 

:,j"Ll 
J  TO  COI 

'HID  BIB  (31)  , 


TALOB  10  c6HT 
PI 


I  FIXID  BIB  (31)  ; 


(IF  BOT  ZBBO) 
V 


IF  BI  >  0  TBBB  BBTOBB  (IDIABBS  (II»T) )  ; 
SLSi   DO; 

C  -  T;    C  »  0: 

CO  I  -  7  TO  1  £l  -1; 

IF  S0BSTB(C,I,1)  »  •  •  THBB  GO  TO  BBT; 
BBD; 

I  -  0: 

BBT:  BBTOBB  (SHBSTB  (C,I*1) )  ; 

BBD: 
BBC  BOH; 

BLKA  BBD:  EBD  BLBA: 
IF  FLUSH  THIS  POT  SBIP12)  LI.T  ('SKIPPIBG  TO  BBXT  PBOBLBB'); 
IMFOBB  »  •  T: 
DO  BBXLB  (IBFOBB  -»  '•'); 

GIT   SKIP    EDIT     (IBFOBB)      (A(1)); 

BBC; 
GBT    SKIP; 
POT    PAGE: 
GO   TO   NBIDAIA; 
BBD    AQ70BI; 
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APPENDIX  II. 


Sample  Input  Stream 
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On  pages  61  and  62  the  actual  Input  stream  for  four 
problems  is  shown*  A  complete  description  of  the  four 
problems  along  with  interpretations  of  the  results  will 
be  found  in  [Stepp  79], 

The  first  problem  is  called  TRAINS*  The  data  represents 
ten  trains  each  train  consisting  of  3  to  5  cars*  There 
are  26  variables  defined  as  follows* 


number  of  cars 
no*  wheels  on  car 
no*  wheels  on  car 
no*  wheels  on  car 
no*  wheels  on  car 
no*  wheels  on  car 
length  of  car  1 
length  of  car  2 
length  of  car  3 
length  of  car  h 
length  of  car  5 
shape  of  car  1 
shape  of  car  2 


Six  domains  are  defined t 

number  of  carsi   3  levels 


no*  wheelss   2  levels 


length  of  can   2  levels 


shape  of  cart   10  levels 


shape 

1 

shape 

2 

shape 

3 

cargo 

J+ 

cargo 

5 

cargo 

cargo 

cargo 

cargo 

cargo 

cargo 

cargo 

cargo 

of  car 
of  car 
of  car 
shape- 
shape- 
shape- 
shape- 
shape  - 
amount 
amount 
amount 
amount 
amount 


3 
k 

5 

■car 
•car 
•ear 
•car 
•car  5 
—car  1 
•-car  2 
—car  3 
—car  h 
—car  5 


1 
2 

I 


a  mixture  of  0 
mixture  of  3  k   6 


2 

8 


0-3  cars 
1»4  cars 
2» 5  cars 

0-2  wheels 
1*3  wheels 

0«short 
l«long 

Oaopen  rectangle 
laopen  trapezoid 
2«U- shaped 

hexagon 

ellipse 
5*double  open  rectangle 
enclosed  rectangle 
7» jagged  top 
8«sloping  top 
9*locomotive 
5»open  top 
9*closed  top 


I 
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cargo  shape i   4  levels        0«circle 

l=hexagon 
2= triangle 
3=rec tangle 

cargo  amount t  ^  levels        [0,3l 
The  ten  events  are  divided  into  two  classes,  of  5  events 
each.   Judging  criteria  number  6  is  to  be  used.   When  the 
value  of  a  variable  is  unknown  or  not  applicable  (e.g.  the 
length  of  car  5  for  a  train  of  3  or  4  cars)  the  value  -1 
is  given  to  represent  this  condition.   The  characterization 
parameters  for  TRAINS  are 

MODE^'APPROX'   DTalE-6   NGB=8   TYPE^'DC* 
which  designate  that  disjoint  complexes  are  to  be  produced 
such  that  no  complex  has  a  density  less  than  10~  .   The 
selection  of  best  neighborhood  is  to  be  made  from  among  8 
neighborhoods  built  around  8  different,  randomly  selected 
seeds.   Because  the  ULIST  parameter  is  not  specified,  this 
characterization  will  be  of  the  union  of  the  two  input 
classes — all  ten  events. 

Skipping  the  relatively  simple  second  and  third 
problems  (BOTTLES  and  FACES),  a  few  comments  are  directed 
to  problem  four,  called  ANIMALS.  The  data  describes  79 
cute  little  animals  (shown  in  figure  *0,  each  represented 
by  values  of  13  variables.  The  definitions  of  the  variables 
can  be  found  at  the  bottom  of  page  61,   As  shown  in  figure 
3 i  the  animals  are  initially  broken  into  1^  classes.   This 
information  is  stated  to  the  program  in  line  3  on  page  62. 
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Neighborhood  judging  criteria  numbers  6  and  1  will  be  used 
to  select  the  best  neighborhood  during  all  18  characterisations 
performed.  Using  the  ULIST  parameter,  the  first  Ik 
characterizations  are  made  on  one  class  of  animals  at  a 
time.   MODE*' FREE'  eliminates  the  density  threshold 
constraint*  The  four  characterizations  which  follow  are 
characterizations  of  all  animals,  without  regard  to  the 
input  class  categories.  The  first  two  of  the  four  use 
RANK  and  selector  threshold  to  determine  the  degree  of 
generalization.  The  specifications  RANK-3  ST«8  indicates 
that  complexes  are  to  be  composed  of  no  more  than  8 
selectors  and  that  neighborhoods  are  to  be  composed  of 
events  which  differ  from  the  seed  event  in  no  more  than 
three  variables.  The  last  two  characterizations  use  RANK 
and  density  threshold  to  determine  the  degree  of  general- 
ization. In  these  characterizations,  no  complex  is  to 
have  a  density  less  than  .05* 

In  the  four  characterizations  of  all  animals  (the  last 
four)  both  disjoint  and  intersecting  complexes  are  obtained 
for  comparison. 

The  output  of  the  AQ7UNI  program  corresponding  to  the 
input  stream  reproduced  on  the  following  pages  is  given 
as  Appendix  III. 
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I»POBfl*'TECTOB' 

BAXBV-26    DOSiKS^b       BABES-24       STLTLS-12 

TITLE*!     BAXMAH£LE*«16: 
"TBAIkS."    FBOB    iLkiSOt    77  J,     PAGE    107. 


1  'IBTEBTAL'       3      3 

2  •IiIBB»AL:BBBELS' 

3  'FACTOB^EHGTH' 

4  'SHOCTB:CSHAPE' 


10 


•4" 

2 

i2o 


5 
6 

26 
26 


•FACTORrLSHAPB' 
•IBTBBTAL:LOAD«    4 
122222333 


'BCARS' 


2  ■ 

«   ■ 

3  4 


1 


0 
-1 
-1 

0 

-1 
-1 
-1 


: 


•5* 

2'    '3' 

SHORT'      'LOBS' 

OP£B    BCTiCL'     'OPBB    TRAP.1     'O-SBAPBD' 

BXIAGOI*    •ELLIPSE*     '  DBL    OPEB    BCTHSL* 

CLOSED    BCTiGL*     'JAGGBD    TOP' 

SLOPIBG    TOP*     •LOCOBOTITE' 

OPXI    TOP*       'CLOSED   TOP* 

I     F?     9 

CIRCLE'     'BBIACOI'     'THIABCLE'     •RBCTilSLX* 

4444S5SS566666 
4) 


f : 

3    • 


.  (4)  • 

•  (•)' 
.    4}' 


:f 


-1  -1 

0      0 

-1  -1 

0BICLASS-1: 

B0DB=' APPBOI'     DT=1B-6    BOB'S 


1 
0 
1 
0 
0 

-1 

1 
-1 

0 

-1 


0 

-1 
-1 

0 

-1 
-1 
-1 
-1 

0 

-1 


0      0-1 

-1 
-1 

0   -1 


16- 

1  I' 

6      6 
0   -1    - 

2  7- 

H- 

0  -1    - 


:1 

-1 
-1 
-i 
-1 


2  1      0 

3  0-1 
2      2-1 

2  3      3 

3  0-1 
2  -1   -1 

2  -1    -1 
0  -1    -1 

3  3      0 
3   -1   -1 


IIPORB-'TECTOB'      TITLE=2      BA 
■BOTTLES,"    FBOB   [ BICHALSEI 


TIPB-'DC; 

BJJS=H       D0BAIIS=«    BAXBABELEB»16; 
78],    PAGE   26. 


1  'IBTEBTAL' 

2  'IBTEBTAL' 
•IBTEBTAL' 
•IBTEBTAL' 
12  3  4 
•  ISQ0ABES' 
4  4 


2  0 
4  0 

3  0 
3  0 


'  tTRIABGLBS'     '♦CIBCLES' 


'# ASTERISKS' 


3 

4 
4 
4 

2 

0  1 

1  6   0 

0    112 

110   2 

0    2    12 

0    12    1 

10   2    1 

13   0    1 

12   2    1 

12   0    1 

DHICLASS»3: 

BODE='  EXACT'    ST=2    HflB=8    TIPK»'DC'; 

BODE=,EIACT'     ST=2    BGB=8    TIPE^'IC*: 

BODB='EBX«    BT=2   «GB=8    TIPB»TDC«; 

IBPOBB='TECTOB'        TITLB=2       BAHES=4       DOHAI«5=«     BAIN ABELE8=1 6 ; 
"PACES,"    PfiCfl   [BICBALSEI    75],    PIGOBE    3. 

1  'IBTEBTAL: (CIRCLES'  3  0 

2  'INIEBTAL:*OTALS*  3  0 

3  'IBTEBVAL:»TBIAB6LES'    4  0 

4  •IHTERTAL: (SQUARES'  3  0 
4  12    3    4 

4  '(CIRCLES'     '(OTALS'  '(TRIAIGLBS' 

2  4    4 

0    1 
1    6   0 

2  2   2    0 
12   3    2 

m 

if], 

fan 

0BICLASS=2: 

HODB-'EXACT'    DT».42    ST=3   BGB=6   TIPB-'DC'; 

HODE='FKEE«     BGB°=6    RAMK*2    TTPB='DC«; 

I BPOBH=t VECTOR'       D08AIHS=13       flAXBABELEB- 10 
BAB£S-40    TITLE=2; 
"AMI  HALS,"    FBOB    [  BICBALSKI    75],    EIAflFLB    2. 


(SQUARES' 


1 
2 
3 

4 
5 

6 

7 

8 

9 

10 

11 

12 

13 


IBTIBVAL:BLK-CIBC  3    3 

FACTOB:#TAILS'  2    2 

IHTEBVAL: (CBOSSBRKS'  3    3 

FACTOR: *£XTB£B'  2    2 

PAC10B:T£XTOBE'  7    7 

IBTEBTAL: (BBP-CIHC  3    3 

PAC10B:(EBP-SQ'  2    2 

FACTOB:(EBP-TRIABG'  2    2 

PAC10B:TAIL«  3    3 

PACTOB:SBAPE*  4    4 

FACTOR: (ABGLES*  2    2 

FACTOBclEJES'  2    2 

FACTOR: (BLK-SQ'  2    2 


1  1 

1  2 

1  1 

1  1 

1-1 

1      0 
1    -1 

1  1 

2  -1 


•0'    '1'     '2   OR    BORE' 

•0'    «1    OR   BORE' 

'0'    '1    OR    2'     '3' 

•0    OB    1*     '2    OB    BORE' 

•BLABK'     'DOTS'     'BORIZ    LIHES'     'BATES' 

'DXAG    LUES'     'COARSE*     •  VEBT    LIHES' 

"0    OB    1«     '2'     '3    OB    BORE' 

•0'    M    OR    BORE' 

°0'    '1    OR    BORE' 

'BONE'     'STEAIGBT'     'SPRING' 

•IEREGOLAB'    'ELLIPSE'    'CIRCLE'    'TBIAIG-SQ' 

e0'    M    CB    BOBB' 

•0'    «1    OB    BORE' 

•0'    "1    OB    BORE" 
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13    12    3    »   5    o    1  «    J    10    111213 
3    '••    •••    *.*    '••    •«*    '.*    •-•    '-•    •-•    •-•    •-•    •_•    •.• 

•    *   5    i    7    fa    9    10    11    12    13 


0 

0 
0    , 

it. 

DIICL1SS-18; 

BODB-'PaEB' 

HODB-'IBEB* 

BODB-'PBBB' 

HODB-'PREB' 

H0DB=,?HEB' 

BOOB**PB£B* 

BOOB^'PHM* 

HOOB-'IBBB* 

BOOB-'PBIB* 

HOD  fliZf 

BODB-'PBBB* 

B00B>'?BBEa 

600**' tilt' 

SODfliil* 

BODB-'PHM' 

B00B-' PUB* 

BODB-'ftPPBOX 


IGB-6 
»GB»6 

■  SB-6 

■  SB-6 
BGB-6 
MGB-6 
ICB-6 
1IGB-6 
BGB-6 
BGB-6 
ISB-6 
BGB-6 
BGB-6 
BGB-6 
B1BK-3 
|lBK-3 


BODls-'iPPIOI' 


6    TIP*-'., 
NGB-6   TI|•-,DC•; 
MGB-6   TIPJS-'IC; 
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0.     J E X [  M  S  : 


1      SMUXEYS: 


2.     GRUFFLFS 


fe^^-^y 


4.    SNORPS 


6      MflLINARKS'- 


8.     FUBBYLOOFERS: 


10.    NORLEYS: 


12.    FLORGItnGRFlES: 


Ghff^-Aj,?^* 


~\Q 


iW>A 


3.     SELFFUNGS: 


5.    SPURONS: 


7.     SCRANILLEMS: 


9.    SREFOLYBUFFS: 


11.     SEYLRONS: 


13.    SELFRODEIGROLFS: 


■MPgff, 


& 


SPECIES    OF    'ANIMALS' 

Figure    b 

from  [Michalski  75J 
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APPENDIX  III 


Sample  Output  Listings 
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■OB 

IA» 


o 

o 

tn 

•4 

■4 

a 

J 

i4 

O 

tn 

O 

O 

■4 

a 

to 

* 

•4 

o 

O 

J 

V) 

V) 

* 

J 

•4 

4 

O 

W 

a 

a 

a 

•4 

a 

04 

a. 

B 

■ 

a 

4 

4 

4 

M 

a 

■ 

■ 

a 

a 

a 

B 

■a 

■ 

a 

M 

a 

M 

B 
H 

■ 

■ 

a 

u 

a 

8 

U) 

tn 

■ 

a 

B 

M 

H 

B 

B 

V) 

Ml 

►J 

►J 

a 

i 


a 

19 

4 


r»  en 

r>  tn  V\  mi 

*4  >4  a 

a  a  a  tn  > 

o  a  a  hi  a 

m  a  a  a  -» 

a  >4  >4  a 

4  a  o 

<-j  oo 

(N  HH      O. 

a  oioeu 

O                                                                                  tna  aaOHO 

a  en                en                           -«o*  mhh    h 

a  ^«                              gno  aaatn    a 

HbOOOOQHa 

aa  OHH  jmww 

OiHHt4  AUOOd 

MOia    aa  i     o-jo 

HOAann    amu>i 

oatncm-i  i  u    u 

MA     ChOOU         A 
a  I  AOJJ1JA  I  A 
B       t       UUHU I        I 
H4     a        ua     (X 
UC9    •  I  AABHCUOa 

aaa     i  i     uoo 

ih«q        ■  «»*    h 

HUMMlHPq  (3H 

(naHcuotncxaaao 

4U(kOHMH8 
MZ9<H      10(30.0 

*ooBaaauiWi-j 


a 

»o 

>4 

^ 

i4 

o 

«n<N 

CM 

tn 

<»wm 

a 

a 

m<M 

a 

a 

a 

«n<N 

a 

a 

or* 

a 

a 

a 

04«N 

in 

a 

OI<N 

B 

•4 

a 

MCM 

a 

tn 

»4 

*N<N 

en 

a 

OWN 

H 

a 

#• 

a 

a 

tn 

a 

>4 

»-<■»>« 

a 

a 

•4 

a 

j 

a 

a 

tn 

• 

a 

% 

a 

a 

a 

a 

in 

r» 

a 

a 

a 

w 

a 

a 

a 

H 

^ 

H 

H 

O-H 

a 

Mao 

a 

H 

■4 

■4 

HO» 

H 

8 

a 

a 

BO 

■ 

a 

>n»m 

arxm 

MIIInI 

1 

8 

a 
a 

a 

a 

8 

u 

H 

H 

U 

(N 

a 

tn 

a 

a 

a 

a 

a 

M 

H 

a 

a 

o 

o 

tn 

H 

ao^fM 

NOf 

ao»- 

M 

H 

H 

o 

O 

o 

tn 

M 

a 

a 

a 

H 

^ 

(N 

rn 

> 

a 

a 

a 

a 

a 

a 

K, 

i 

o 

a 

H 

M 

H 

DM 

a 

a 

a 

H 

■ 

a 

a 

a 

B 

B 

H 

a 

s 

o 

a 

s 

r»  Oi  a 
ca  a  o 
ana 


MU 

a 

>4a 

a 

••aa 

tn 

a 

aa 

a          a 

ono 

a       a>4 

a 

a-J'J 

a 

44»i 

nnoua 

M 

Mt» 

Oi^UI4 

H 

a    a 

Muaan 

44SN 

HfflMHU 

>4 

tNaOM 

HM8H 

a 

aa 

auBHa 

a 

bbhw 

o 

a 

aaaamin 

H 

a 

U 

H 

tnaoaia 

a 

a 

a    atna 

a 

H 

-4«          M 

asofiui" 

fcOf^lfl 

a 

aa»4H 

o 

o 

H     aa 
<sa»a 

m 

so 

<oaat»cn 

B          40f 

a 

a 

4t,OtV,tv  J 

H 

H 

oaoou 

a 

a 

B 

a 

aaaa 

s 

§ 

aMaa 

aaaa 

nseii 

DOOD 

aaaa 
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^«-»-*»<N 


04404    44404 


44444 

■■■■a 

04404 

mm    m 

or*o»-i/> 


44444 

■  ■■■■ 

444P4 

■  ■■   a 

4f«404 

■  ■   ■ 

ONNrvS 
44404 

■  ■»  m 

4*-404 


oooo*» 


04404    44404 

■■  m         aaa  ■ 

"■OrOO    40404 

■  SB 

ooo*-   ooooo 
eo^eo 


o 

M 

4 
H 

4 

a 


o 
u 


)^e<NO   «- 


MM     JLJUJA 


♦ « •  •  i 

22222 

MMMMM 

MMMMM 
!»*•»»»» 
MHMMM 


»  •  t  i  « 

SSSSS 

|iH*t->H 

MMMMM 

MHMMM 
MMMMM 


-» 
U 


01 


-A 
(J 


OM 

oo 

4 
MM 

MK 
4M 

-»■ 

UD 
H 

MM 

BU 

H 

MB 

oa 


•4 


OM 

U 

MM 

■  H 


H 


I 

o 


<N 


H 


g 

OH 
OM 

-•a 

H 

I 


M 

At 


I 

M 

H 
MV) 
OH 

3d 


o 

-I  M    M 

•JMt  M& 

OM4  M4 

*.-!M  -IS 

MMU  BU 

SO"  0"» 

HU  U 
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(O 


u 

S 

© 

vO 

00 

H 

o 

xn 

U"\ 

H 

• 

• 

H 

© 

*-l 

CVi 

o 

© 

II 

II 

H 

H 

• 

to 

H 

< 

<: 

< 

* 

°a 

o 

o 

© 
i 

o 
© 
+ 

II 

toa 
tow 

a 

M 

a 

o 

a 

toa 

r»» 

\o 

e 

a 

toa 

rn 

VO 

o 

a 

aa 

» 

t 

* 

a 

U 

an 

OM 

ato 

a 

o 

M 

a 

o 

a 

o 

a 

a 

z 
aa 

H 

H 

H 

H 

H 

t 

aa 

to 

to 

to 

\o 

II 

> 

z 

a 

z 

CM 

o 

a 

u© 

a 

a 

a 

a 

3 

OS 

II 

(9 

1 

u 

a 

aw 

B 

a 

E» 

< 

a 

w— 

H 

H 

HfS 

Oi 

h 

a»» 

H 

H 

■  to 

a 

•j^ 

a 

V 

« 

a 

u  • 

a 

^» 

M»- 

*^ 

^^ 

—.to 

CO 

a 

fN 

a 

a 

a 

■  H 

r» 

»r*> 

fMOPN^ 

«»^*»^ 

a 

p» 

aw 

H 

a 

a 

a 

a 

aa 
za 

H 

o 

II 

a 

H 

a 

mf> 

*-©»-<N 

NOMO 

u 

aa 

» 

<n 

*-to 

10 

to 

Ul 

to 

to 

H 

HU 

a 

-) 

-j 

j 

M 

hi 

a 

too 

a 

« 

* 

a 

a 

a 

a 

(N* 

^•-<Nt- 

©•"tlNCM 

p» 

© 

BO. 

*^ 

** 

'■**w^ 

a 

s» 

B» 

k> 

*» 

•  • 

a 

e 

ato 

o 

M 

H 

a 

M 

t/1 

to 
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